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-REM % 
IDENTIFICATION 


PRODUCT NAME: CZDXICO DX11-B RESPONDER 
PRODUCT CODE: AC=8776C-MC 


RELEASE DATE JULY 1976 

REVISED MARCH 1982 

MAINTAINER: DIAGNOSTIC ENGINEERING 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE ~ SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 
THE SOFTWARE DESCRIBED IN THIS oes IS FURNISHED TO THE 


soy HASER UNDER A LICENSE FOR USE ON A SINGLE ye SYSTEM 
AND CAN BE COPIED CuiTH INCLUSION OF DIGITAL'S OLT NOTICE) 

ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED 

IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1976,1982 BY DIGITAL EQUIPMENT CORPORATION 
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PROGRAM HISTORY 

02-FEB-82 


REV. C 
THE CONTROL P_ COMMAND HAS BEEN CHANGED TO CONTROL R. THERE IS 
A CONFLICT BETWEEN RDC AND THIS PROGRAM, WHEN USING CTL P. 
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1.0 GENERAL DESCRIPTION 
THIS hd Ay! PROGRAM EXERCISES THE dehy RNase 
D AN IBM 370 COMMUNICATING VIA THE 


SEQ 3 


THE PDP=11 360/ 

DX11-B8 C ROL IT. THE PROGRAM EMULATES AN IBM 
(2260) AND ITS CONTROL UNIT (2848) COMMUNICATING OVER 
EITHER A MULTIPLEXER OR SELECT 36 


LEC ws -__ THE 
EXERCISES THE INTERFACE BY RUNNING STANDARD I8M DIAG- 
NOSTICS DESIGNED TO TEST ue 3360/2848; FRIEND OR THE 
2848 RESPONDER. UP TO EIGHT 2260'S MAY BE EMULATED 
SIMULTANEOUSLY BY THE PROGRAM. 


eaacethe . SYSTEM TEST PROGRAM COLLECTS THE TEST 


THEN 60/ 
THE SYSTEM TEST PROGRAM ONLY RECOGNIZES BASIC ERRORS; 
SUCH AS, PARITY ERROR, ILLEGAL DEVICE ADDRESS, ETC., 
WITH THE 360 DIAGNOSTIC TESTING FOR MORE DETAILED 
ERRORS; SUCH AS, TIMING PROBLEMS, SEQUENCING ERRORS, ETC. 


THIS PROGRAM COMPLETELY REPLACES AND OBSOLETES 
MD-11~DZDXC. 


2.0 REQUIREMENTS 

2.1 EQUIPMENT 
A. PDP=11 COMPUTER WITH A MINIMUM OF 8K OF MEMORY. 
B. DX11-B 360/370 INTERFACE OPTION. 
C. ONE CONSOLE TELETYPE OR EQUIVALENT. 

2.2 STORAGE 
THE TEST PROGRAM LOADS INTO 4k OF MEMORY AND REQUIRES AT 
LEAS! ANOTHER 4k FOR DATA A BUFFERS. WITH F MEMO 
FOR DATA BUFF X DEVICES (6) MAT BE EMUL ATED. 
TO EMULATE erent 2960/2848 DEVICES 8k OF MEMORY FOR DATA 
BUFFERS I$ REQUIRED. 

2.3 STORAGE MAP 
THE FOLLOWING MAP ILLUSTRATES THE USAGE OF MEMORY 


BY THE DX11-B SYSTEM TEST PROGRAM. ; 
CORE MAP: — “i 


I I 
0-777 I INTERRUPT VECTORS — I 
I (256 WORDS). | 
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SoA! (SG te Se om ep ae See eeeeoeooeeneae = ae 
1000-17777 I DX11-B TEST PROGRAM I 
I (4K WORDS) I 
I I 
X0-x777 I SPW TABLE I 
I (256 WORDS) I 
I I 
X1000-x1777 ' TUMBLE TABLE ' 


X2000-X2777 


X3000-x3377 


X3400-x3475 


X3476-X4437 


X4440-X5377 


X5400-x5475 


X5476-X6437 


X6440-X7377 


160000-177777 


(256 WORDS) 


I 
1 DUPLICATE TUMBLE TABLE 
I (256 WORDS) 


deny Pane bane 


I I 
I DST TABLE I 
I (128 WORDS) I 
I I 
I SOFTWARE DEVICE STATUS y+ Os rae 01 
I (31 Wi I 
I I 
I INPUT BUFFER I 
I (241 WORDS) I 
I I 
I OUTPUT/DISPLAY nares (DEV 0)1 
I (240 WORDS) I 


I 
: SOFTWARE DEVICE weet Aye ye wey 1) 


te me 
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I I 
I INPUT BUFFER (DEV 1)1 
I (241 WORDS) I 
I I 
I OUTPUT/DISPLAY ouret (DEV 1)1 
I (240 WORDS? I 


I I 
I THE ABOVE SOFTWARE BUFFER LAYOUT I 
I (DEVICE STATUS TABLE, INPUT BUFFER +] 
I OUTPUT BUFFER) WILL BE REPEATED FOR I 
I EACH DEVICE SPECIFIED (UP TO 8). I 
I EACH DEVICE EMULATED REQUIRES 5i2_ I 
' WORDS (2000 OCTAL) OF BUFFER SPACE i 


at a 


UNIBUS ADDRESSES 
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I I 
| NOTE == "*X'' IS DETERMINED BY THE BUFFER RELOCATION FACTOR 
| INPUTTED AT SYSTEM CONFIGURATION TIME. 
| THE DEFAULT VALUE OF "'X"' IS 20000. ‘‘X'' IS ALWAYS A 
PHYSICAL ADDRESS. 
3.0 LOADING PROCEDURE 
THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED. 
STARTING ADDRESS 
FOR ABSOLUTE LOADER 
037500 
12k 057500 
16K 77500 
20k 17500 
24K 137500 
28k 157500 
4.0 START UP PROCEDURE 
4.1 CONTROL SWITCH SETTINGS == NONE 
4.2. STARTING ADDRESSES 
1000 OR 200 NORMAL STARTING ADDRESS. FOR THE 
FIRST TIME AFTER LOADING ONLY, THE PROGRAM 
REQUESTS OPERATOR TO ENTER TEST PARAMETERS. 
EACH SUCESSIVE RESTART USES THE PARAMETERS WHICH 
HAVE BEEN PREVIOUSLY ENTERED. 
1002 RESTART ADDRESS WHICH REQUESTS OPERATOR TO ENTER TEST 
PARAMETERS AGAIN. 
NOTE: AT ANY TIME WHILE THE PROGRAM IS RUNNING. A CONTROL R (*R) 
YPED ON THE TTY KEYBOARD WILL ALSO REQUEST T HE 
OPERATOR 10 REENTER THE TEST PARAMETERS 
4.3 PROGRAM AND/OR OPERATOR ACTION 
4.3.1 INITIAL PROGRAM START 





1. LOAD PROGRAM INTO MEMORY USING ABSOLUTE LOADER. 
2. LOAD ADDRESS 200. 


3. PRESS START 
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4.3.2.1 


4.3.2.2 


4. THE PROGRAM WILL TYPE OUT *'CZDXI=C NEW DX11-B RESPONDER"’ 


5. THE SYSTEM NOW REQUESTS THE OPERATOR TO ENTER THE 
PARAMETERS NECESSARY TO RUN THE TEST. 


ENTERING TEST PARAMETERS 
BEFORE ANY TESTS MAY BE RUN OR WHENEVER A CHANGE IN PARA- 
METERS IS 4g a THE OPERATOR WILL BE REQUIRED TO ENTER 
ALL_THE TEST PARAMETERS. THE ENTERING OF THE PARAMETERS 
IS DONE VIA THE *CONSOLE TELETYPE IN RESPONSE TO A SERIES 
OF QUESTIONS. 
GENERAL RULES FOR ENTERING PARAMETERS 
A. oS leah MUST BE DELIMITED BY A CARRIAGE RETURN 
B. 14 A TYPING ERROR IS DETECTED BEFORE ENTERING THE C/R, 
IT MAY BE CORRECTED BY: 
1. USING RUBOUT(S) TO DELETE THE LAST CHARACTER(S) 
2. HITTING CONTROL-U (*U) TO DELETE THE ENTIRE ENTRY 


C. TO SELECT THE DEFAULT PARAMETER ENTRY, TYPE CARRIAGE 
RETURN (C/R) ONLY. 


D. IF THE PROGRAM DETECTS AN ERROR IN A PARAMETER IT WILL 
REPEAT THE QUESTION AGAIN AND REQUIRE THE OPEXATOR TO 
REENTER THE PARAMETER. 

PARAMETER DEFINITION 

“UNIBUS ADDRESS -OCTAL~"' 

REQUESTS a TO ENTER ayy WHERE THE DX RESIDES 
ON THE UNIBUS. THIS MUST BE A 6 DIGIT OCTAL NUMBER 
BETUEEN 176200 AND 177700. 
DEFAULT UNIBUS ADDRESS =176200 
“VECTOR ADDRESS -OCTAL-"" 


REQUESTS USER TO ENTER THE VECTOR ADDRESS FOR THE DX 
AS A 3 DIGIT OCTAL NUMBER BETWEEN 300 AND 770. 


DEFAULT VECTOR ADDRESS = 300 
"DEVICE ADDRESSES (XX,XX) =HEX-"" 


REQUESTS we USER TO ENTER THE 360 CHANNEL ADDRESS(ES) OF 
IF a. _ ONE 


THE 2260(S) TO BE EMULATED BY THE TEST. 

DEVICE IS TO EMULATED, THEN THE USER ENTERS IN 

RANGE OF ADDRESSES TO BE EMULATED: SUCH 

~-THIS INDICATES THAT UNITS AO, Al, A2, AND a3 CaN BE 
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USED IN THE TEST. THE UNIT ADDRESSES ARE TO BE 
ENTERED IN HEX BETWEEN 00 AND FF. IF AR OF 
DEVICES IS GIVEN, THERE CAN NOT BE MORE THAN 3 TOTAL. 


DEFAULT DEVICE ADDRESS = 10,10 
“CHANNEL TYPE (M OR S)*° 


a THE USER TO INDICATE WHAT TYPE OF 360 CHANNEL 
THE DX IS _INTERFACED TO: M = MULTIPLEXER CHANNEL, 
S = SELECTOR CHANNEL. 


DEFAULT CHANNEL = S, SELECTOR CHANNEL 
“MEMORY MANAGEMENT (Y OR N)"° 


REQUESTS THE USER TO INDICATE WHETHER THE PROGRAM IS TO 
- : ohh ME £7 mene: OPTION. 


DEFAULT OPTION = N, DO NOT USE MEMORY MANAGEMENT 
“BUFFER RELOCATION, IF SPECIFIED = IN EVEN ,000°S -OCTAL-"' 


peed THE PHYSICAL ADDRESS OF rg - Dx 
FIRMWARE BUFFERS (TUMBLE TABLE, SPW + DST) AND 
SOFTWARE DEVICE BUFFERS ARE TO RESIDE. ps RELOCATION 
aonares IS ENTERED IN OCTAL THOUSANDS, T 

ON A 2000 BYTE ADDRESS BOUNDRY. EG: PAYSICAL ADDRESS 

100000 IS ENTERED AS 100. 


NOTE: THE BUFFER fea! BE CLOSER THAN 24000(8) 
TO ANY 200000 BOUNDARY OR TO THE I/O PAGE. THE 
THE DX IS NOT CAPABLE OF HAVING THESE BUFFERS 
CROSS A 200000 BOUNDARY. 

IT IS POSSIBLE TO OVERLAY THE ABSOLUTE LOADER 
WHICH RESIDES IN THE HIGHEST AVAILABLE 4k(10) 

OF THE FIRST 28K OF MEMORY. 


DEFAULT BUFFER ADDRESS = 20 (20000) 

“FRIEND (F) OR 2848 DIAG (D)"* 
ye THE USER 7, INDICATE WHAT TYPE OF TEST WILL 
BE R THE 360; = IBM'S FRIEND OR D = THE 2848 
RESPONDER DIAGNOSTICS. 
DEFAULT OPTION = F == FRIEND 


IN FRIEND MODE, SEE PARA 5.0 FOR LIST OF VALID IBM 
CHANNEL COMMANDS. 


FRIEND MODE WILL ACCEPT THE SAME COMMAND STRINGS FORMERLY 
USED WITH ‘CTP’. 


NOTE =~ IF THE 2848 RESPONDER WAS SELECTED, NO 
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| MA 

| 

| MORE PARAMETERS ARE NEEDED, SO THE SYSTEM 
| wil BE INITIALIZED AND CONTROL PASSED TO 
THE MONITOR. SEE MONITOR COMMANDS 4.4. 


“SEPARATE I-0 BUFFERS (Y OR N)*° 

REQUESTS THE USER TO INDICATE WHETHER SEPARATE INPUT 

AND OUTPUT BUFFER SHOULD BE MAINTAINED FOR EACH CRT 

eur Melt eg SEPARATE INPUT/OUTPUT BUFFERS ALLOW 
THE TRANSMISSION OF THE SAME DATA PATTERN TO THE 

360/570 INDEPENDENT OF WHAT DATA IS RECEIVED. 

THIS IS USEFUL IN DETERMINING THE CAUSE OF BAD 

DATA BEING TRANSMITT 

NOTE == MOST TESTS USING "FRIEND' WILL NOT UTILIZE 

SEPARATE 1/0 BUFFERS. THESE ARE ONLY FOR SPECIAL 

SITUATIONS AS MENTIONED ABOVE. 


DEFAULT OPTION = N, NO USE THE SAME I-0 BUFFER 


NOTE -- IF a 3 akood I-0 BUFFER WAS SPECIFIED, 
MORE PARAMETERS ARE NEEDED, SO THE SYSTEM 
witt Be INITIALIZED AND oGONTROL PASSED TO 

THE MONITOR. SEE MONITOR COMMANDS 4.4. 


“OUTPUT BUFFER FILL CHARACTER -HEX~-"' 
REQUESTS THE USER TO ENTER THE CHARACTER WHICH IS USED 
TO FILL THE OUTPUT BUFFER. THIS CHARACTER IS ENTERED IN 
HEX (00 = FF). 
DEFAULT FILL CHARACTER = 40, AN EBCDIC BLANK 


NOW ALL TEST PARAMETERS HAVE BEEN ENTERED AND THE SYSTEM 
et ek INITIALIZED AND CONTROL WILL BE PASSED TO THE 


4.3.3 SYSTEM INITIALIZATION 


AFTER THE TEST PARAMETERS HAVE BEEN ENTERED THE SYSTEM IS 
INITIALIZED AND CONTROL PASSED TO THE MONITOR. BEFORE 

ANY COMMUNICATIONS MAY BE yn gt TO THE 360 THE DX 

WILL NEED TO BE ENABLED VIA THE RUN ‘R’* COMMAND. SEE SEC- 
TION 4.4 FOR MORE INFORMATION CONCERNING THIS AND OTHER 
MONITOR COMMANDS. 


4.4 MONITOR COMMANDS 
AFTER THE TEST PARAMETERS HAVE air Tyee seria ty aot 


THE Al 1S CONFIGURED AND INITIALIZED, THEN CONTROL Is 
PASSED TO THE MONITOR. ONCE IN THE MONITOR THE OPERATOR 
IS FREE TO ISSUE ANY COMMAND LISTED BELOW. 


NOTE == THE OPERATOR MUST ENABLE THE DX (RUN COMMAND) 
BEFORE ANY TESTS MAY BE PERFORMED WITH THE 360/370. 


4.4.1 GENERAL RULES FOR ENTERING MONITOR COMMANDS 
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A. 


I. 


wer MUST BE DELIMITED BY A CARRIAGE RETURN 


A TYPING ERROR IS DETECTED BEFORE ENTERING THE C/R, 
IT MAY BE CORRECTED BY: 


1. USING RUBOUT(S) TO DELETE THE LAST CHARACTER(S). 
2. TYPING CONTROL=U (“U) TO DELETE THE ENTIRE LINE. 
If A USER WISHES TO ABORT A COMMAND, SUCH AS DUMPING 


DATA TO * TELETYPE CONSOLE, HE DOES SO BY TYPING 
CONTROL-C (“C). 


— 


CONTROL=S (*S) SIGNALS THAT CONSOLE OUTPUT SHOULD BE 
TEMPORARILY SUSPENDED. 


CONTROL-@ (*Q) IS USED TO ppb CONSOLE OUTPUT AFTER 
IT HAS BEEN STOPPED VIA A CONTR 

THE MONITOR MODE IS DENOTED BY THE ASTERICK (*) IN 
PRINT POSITION 1. 


IF AN ERROR IS DETECTED IN THE COMMAND BY THE PROGRAM, 
IT WILL PRINT A QUESTION MARK (?). 


IF THE OPERATOR TRIES TO ENTER DATA WHILE A COMMAND IS 
CURRENTLY ACTIVE OR HE OVERFLOWS THE INPUT BUFFER (64 
CHARS) THE SYSTEM WILL PRINT A BACKSLASH (\) AND DELETE 
THE ENTIRE LINE. 


TYPING CTL“R (*R) CAUSES THE SYSTEM TO BE REINITIALIZED 
AND NEW TEST PARAMETERS REQUESTED. 


4.4.2 DESCRIPTION OF MONITOR COMMANDS 
R =~ ENABLE THE DX FOR TESTING = RUN COMMAND 
THE RUN COMMAND DOES THE FOLLOWING: 


t. 
2. 
3. 


INITIALIZES THE DX 
CLEARS ALL TUMBLE TABLE ENTRIES. 
ENABLES THE DX BY SETTING THE APPROPRIATE BITS IN DXCS. 


S -- DISABLE THE DX - STOP COMMAND 


THE ST 


OP COMMAND ALLOWS THE eee TO DISABLE THE DX AFTER 


. SPECIFIC EVENT. THIS MAY EITHER BE IMMEDIATELY, AFTER 


AN INITIAL SELECTION SEQUENCE, AFTER A DATA TRANSFER, 


AFTER AN ENDING SEQUENCE, OR ON A PARITY ERROR. 
THE FORMS OF THE STOP COMMAND ARE: 





S(C/R) == STOP IMMEDIATELY 


SEQ 9 
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SI(C/R) == STOP AFTER NEXT oe He SELECTION sees 
SD(C/R) == STOP AFTER NEXT ~ et SFER COMPLETI 
SE(C/R) == STOP AFTER NEXT ENDIN ENCE 

SP(C/R) == STOP ON _—s ARTTY ERROR 


AFTER THE CONDITIONS OF STOB-ARE MET, THE DX‘WILL BE DIS- 


ABLED. guns 
THE FOLLOWING W Be NFED.ON THE CONSOLE - 
TELETYPE: Ns . 


CURRENT, DEVICE ~~ XX" THE CURRENT DEVICE ADDRESS IN HEX 


DS IN OCTAL = PROBABLY ZERO 
OCTAL 


*"KKKXK"" THE Dxca IN OC 

*"XXXXX"" THE DXCS IN OCTAL 
*"XXXXX"" THE DXOS IS OCTAL 
*XXXXXX"’ THE DXBA IN OCTAL 
*"\XXXXX"’ THE DXBC IN OCTAL 
"XXX" THE DXMO IN OCTAL 
*XKXKX"" THE DXMI IN OCTAL 
*"\XXXXK"" THE DXND IN OCTAL 
*"XXXXK"" THE DXES1 IN OCTAL 
*XXKXX"" THE DXMOB IN OCTAL 
*"“XXXXX"" THE DXES2 IN OCTAL 


D -- DUMP COMMAND 


THE DUMP COMMAND ALLOWS THE USER TO DUMP VARIOUS DATA 
BUFFERS, TABLES OR CORE LOCATIONS ON THE CONSOLE TELETYPE 
A VARIETY OF FORMATS. THE FOLLOWING DESCRIBES THE 
SYNTAXES OF THE DUMP COMMAND: 


DTT,.O DUMP TUMBLE TABLE IN OCTAL 
DIT.H DUMP TUMBLE TABLE IN HEX 


THE DUMP TUMBLE TABLE COMMAND une 
A DUPLICATE TUMBLE TABLE MAINTAINED 


TABLE IS DUMPED IN REVERSE CHRONOLOGICAL 


| 

i 

| "DOKKKKX" THE DXCB IN OCTAL 
ORDER AND PRODUCES THE FOLLOWING REPORT: 


XXXANK i: =~ LAST OPERATION 

XXX TT] == LAST OPERATION 

XXAXAAK 112 = ~~ PREVIOUS T/T ENTRY 

"i, TT1 == PREVIOUS T/T ENTRY 
DIN,O, XX DUMP INPUT BUFFER FOR DEVICE = ~ OCTAL 
DIN,H,XX DUMP INPUT BUFFER FOR DEVICE X 
DIN,E XX DUMP INPUT FER FOR DEVICE xX IN EBCDIC 
DIN, A, XX UMP INPUT BUFFER FOR DEVICE I 
DOT ,0, XX DUMP OUTPUT BUFFER FOR DEVICE XX IN OCTAL 
DOT ,H,XX DUMP OUTPUT BUFFER FOR DEVIC 
DOT .E , XX DUMP OUTPUT BUFFER FOR DEVICE Xx IN EBCDIC 
DOTA, XX DUMP OUTPUT BUFFER FOR DEVICE XX IN ASCII 
DSSSSSS,EEEEEE.O DUMP BETWEEN GIVEN LIMITS IN OCTAL 
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DSSSSSS,EEEEEE.H DUMP BETWEEN GIVEN LIMITS IN HEX 

DSSSSSS,EEEEEE.E DUMP BETWEEN GIVEN LIMITS IN EBCDIC 

DSSSSSS.EEEEEE.A DUMP BETWEEN GIVEN LIMITS IN ASCII 

NOTE == XX IS THE DEVICE ADDRESS IN HEX ; IF NOT SPECIFIED, 

WILL DEFAULT TO 4 DEVICE (CRT) # IN I TABLE. 


EEEEEE IS THE ENDING MEMORY ADDRESS IN OCTAL 
F == FILL COMMAND 


THE FILL COMMAND ALLOWS THE USER TO FILL THE INPUT OR OUT- 
PUT FOR A DEVICE WITH A SPECIFIC DATA PATTERN. THE FOLLOWING 
DESCRIBES THE SYNTAX FOR THE FILL COMMAND. 


FIN, VY ,XX FILL INPUT BUFFER FOR DEVICE XX WITH YY 
FOT A VY.XX FILL OUTPUT BUFFER FOR DEVICE XX WITH YY 


XX = THE DEVICE ADDRESS IN HEX 
YY = THE FILL CHARACTER IN HEX 


H == HELP COMMAND 


THE HELP COMMAND PRINTS OUT A SYNOPSIS OF THE 
MONITOR COMMANDS AND CONSOLE CONTROL CHARACTERS 
AVAILABLE FOR OPERATING THE DX11-B8 SYSTEM TEST 
PROGRAM. THE SYNTAX OF THE HELP COMMAD IS: 
H PRINT OUT HELP MESSAGE 

I == INPUT COMMAND 


THE INPUT COMMAND ALLOWS THE USER TO INPUT DATA FOR A 
PARTICULAR CRT AND SEND of! TO THE 360, IN THE SAME MANNER 
AS IF HE WERE ACTUALLY ON A 2260. THE INPUT COMMAND IS 

ONLY VALID WHEN THE IGM 3808 STAGNOSTICS ARE BEING RUN, 

THE SYNTAX OF THE INPUT COMMAND IS: 


IXX ,D--=-D 
WHERE : 
MX IS THE DEVICE ADDRESS IN HEX 
D---D IS THE DATA TO BE SENT TO THE 360. THE DATA WILL 
BE CONVERTED TO EBCDIC BEFORE BEING TRANSMITTED TO 
THE 360. 
E == ENABLE A DX-11 DEVICE ADDRESS 
ne ENABLE COMMAND TURNS THE DEVICE [meicares IN THE OPERAND 
O AN ON@LINE STATUS. A DEVICE ADD 7: pon BE OF F=- 
toNe VIA THE °K’ COMMAND. THE DEVICE ADDRESS MUST a ENTERED 
IN HEX AND BE WITHIN THE LIMITS SPECIFIED BY THE TEST 
PARAMETERS. THE SYNTAX OF THE ENABLE COMMAND IS: 


EXXx ENABLE DEVICE Xx 


| 
: 
assess IS THE STARTING MEMORY ADDRESS | 
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K == DISABLE DX11-8 DEVICE ADDRESS 


| 

| THE KILL COMMAND SETS THE DEVICE INDICATED TO AN OFF-LINE 
STATUS. THE DEVICE ADDRESS ENTERED MUST BE IN HEX AND 6E 

| WITHIN THE LIMITS SPECIFIED BY THE TEST PARAMETERS. A 

DEVICE MAY ONLY BE ENABLED AGAIN VIA THE ‘‘E’’ COMMAND. 


2 
3 ; 


THE SYNTAX OF THE KILL COMMAND 
KXX DISABLE DEVICE Xx 
A =~ ACCESS AND DISPLAY LOCATIONS (QUICK LOOK + CHANGE) 


THE ACCESS COMMAND ALLOWS THE user 10 DISPLAY AND ALTER 

MEMORY LOCATIONS WHILE THE PR S RUNNING, AN ON-LINE 

ODT. THE ACCESS COMMAND SHOULD BE USED WITH oe RENE CAU= 
TION. | WHEN THE USER ENTERS THE ADDRESS TO BE ACCESSED, 

IN THE PROGRAM RESPONDS BY PRINTING THE CONTENTS 

OF Mie *REFERENCED LOCATION IN OCTAL ON THE CONSOLE TELE~ 
TYPE. THE OPERATOR MAY THEN: 


A. CHANGE THE CONTENTS OF THE LOCATION BY dere IN THE 
NEW CONTENTS IN OCTAL, DELIMITED BY A ( THE 
SYSTEM WILL THEN OPEN THE NEXT LOCATION AND “DISPLAY 
ITS CONTENTS. 

B. TYPE A (C/R) ONLY. THIS WILL ov: AFFECT THE a a 
OF THE CURRENT LOCATION. THE SYSTEM WILL OPEN THE 
NEXT LOCATION AND DISPLAY ITS CONTENTS. 


C. TYPE (/) SLASH FOLLOWED BY A (C/R) TO ESCAPE TO THE 
MONITOR. 


THE SYNTAX OF THE ACCESS COMMAND IS: 


AYYYYY ACCESS + DISPLAY LOCATION YYYYY 
NOTE: NO SPACE BETWEEN ‘‘A’’ AND LOCATION. 


5.0 OPERATING PROCEDURE 
REFER TO SECTION 4.4 ‘MONITOR COMMANDS"’ FOR DETAILS. 


SEE MAINTENANCE MANUAL EK-DX11B-MM-002 FOR PROCEDURES 
FOR OPERATING THE IBM SYSTEM. 


IN FRIEND OR 2848 DIAG.MODE, THE FOLLOWING IBM COMMANDS ARE VALID; 


C DESCRIPTION 

OCTAL HEX 

00 00 TEST 1/0 

01 01 WRITE FULI BUFFER 
0 3 *READ MANUAL INPUT 
$i + NO OPERATION 


SENSE 
05 05 WRITE LINE ADDRESS 
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4.0 
6.1 


6.2 
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06 06 READ FULL BUFFER 

07 07 R 

12 OA *READ SHORT MANUAL INPUT 

*DATA_IN THE OUTPUT BUFFER IS ONLY TRANSMITTED ONCE 

FOR THESE COMMANDS. 

ERRORS 

ERROR HALTS 


Ha ARE ONLY TWO CONDITIONS (MEMORY TIME-OUT AND 


S 
ARE ACCOMPANIED WITH A DESCRIPTIVE MESSAGE RELATING 
THE CAUSE OF THE ERROR. RECOVERY FROM ANY SYSTEM HALT 
REQUIRES THE OPERATOR TO RESTART THE PROGRAM AT LOCATION 200. 
SEE ERROR MESSAGES FOR DETAILS. 


DX ERRORS 


UPON RECEIPT OF AN ILLEGAL DX CONDITION (INVALID DEVICE ADDRESS, 
INVALID DX COMMAND, NON EXISTENT MEMORY ERROR) THE SYSTEM WILL 
PRINT A DESCRIPTIVE ERROR MESSAGE AND DISABLE THE DX. 

THE USER MAY THEN EXAMINE THE STATE OF THE DX. NOTE 

THAT THE DX MUST BE ENABLED BEFORE MORE TES TS CAN AN BE 

PERFORMED ON THE 360/370 (RUN COMMAND). AFTER THE D 

HAS BEEN DISABLED THE FOLLOWING WILL BE PRINTED ON THE 

CONSOLE TELETYPE: 


*“CURRENT DEVICE == XX'* THE CURRENT DEVICE ADDRESS IN HEX 
*AXXKAK THE DXDS IN OCTAL == PROBABLY ZERO 


*"XKKKX"" THE DXCS IN OCTAL 
*"“XXXKX"* THE DXOS IN OCTAL 
*"\“XXKXX"* THE DXBA IN OCTAL 
*"KKKKK"’ THE DXBC IN OCTAL 
*"XXKKX"" THE DXMO IN OCTAL 
*KKKKK" THE DXMI IN OCTAL 
*XXXKX"" THE DXCB IN OCTAL 
*"XXXKX"* THE DXND IN OCTAL 
*"XKXXX"* THE DXES1 IN OCTAL 
KKK THE DXMOB IN OCTAL 
*"XXXKK"" THE DXES2 IN OCTAL 


NOTE =~ THE DX WILL NOW BE INA yoy STATE REQUIRING 
THE USER TO ENABLE THE DX VIA THE R ** COMMAND BEFORE 
COMMUNICATIONS TO THE 360 CAN RESUME 


ERROR MESSAGES AND SUGGESTED CORRECTIVE ACTIONS 


“MEMORY TIME a 
THE MEMORY TIME OUT ERROR INDICATES A TRAP WAS 
EXECUTED THRU LOCATION 4. THE SYSTEM HALTS vt 
THIS ERROR. THE MEMORY TIME OUT ERROR NORMALLY 
DENOTES THAT AN ILLEGAL ADDRESS aS REFERENCED AND 


EE er eee 


SEQ 13 
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7.0 


7.1 


THE SYSTEM SHOULD PROBABLY BE RECONFIGURED. 


“MEMORY Wate tnken ERROR" 
THIS ERROR INDICATES A TRAP WAS EXECUTED THRU 
LOCATION 250, THE MEMORY MANAGEMENT TRAP VECTOR. 
tom Tine WILL HALT AFTER REPORTING THE ERROR 


“ILLEGAL mit tk NUMBER"* 
THIS ERROR rag al 3 THAT A_TUMBLE TABLE ENTRY 
WAS MADE WHICH CONTAINED A DEVICE ADDRESS OUT- 
ois ay 3 VALID DEVICE ADDRESSES ee ttosee BY THE 
TEST PARAMETE NO HIS CONDITION WILL NOT 
OCCUR ON A SYSTEM RESET “FROM THE 360. SEE SECTION 
6.3 FOR FURTHER DETAILS ON DX ERRORS. 


“INVALID DX COMMAND*" 
THIS ERROR INDICATES THAT AN INVALID COMMAND WAS 
DETECTED FROM THE 360. THIS ERROR CAN ONLY OCCUR 
ON_AN INITIAL SELECTION SEQUENCE. SEE SECTION 
6.3 FOR FURTHER DETAILS ON DX ERRORS. 


"NON EX-MEM ERROR’ 
THIS ERROR INDICATES THAT A NON-EXISTENT MEMORY 
ERROR WAS DETECTED IN A TUMBLE TABLE FROM THE 
eR SECTION 6.3 FOR FURTHER DETAILS ON DX 


“PARITY ERROR’ 
THIS re a ead THAT A_PARITY ERROR WAS oe- 
TECTED BY THE D TO STOP THE DX WHEN 
A PARITY ERROR 13, Paros ieee THE USER SHOULD 
CONSULT THE ‘‘STOP*’’ COMMAND. 


RESTRICTIONS 
SEE MEMORY REQUIREMENTS (SECTION 2.2) 


MULTIPLE DEVICE ADDRESSES 


ONLY 8 DEVICE ADDRESSES MAY BE EXERCISED SIMULTANEOUSLY 
OVER THE DX. ALL THE DEVICE ADDRESSES MUST BE CONTIGUOUS. 


g 
PROGRAM DESCRIPTION 


THE PURPOSE OF THIS PROGRAM IS TO GIVE INSIGHT 

ON FUNCTIONALITY OF THE HARDWARE AND TO GIVE AN EXAMPLE OF 
PROGRAMMING. IT W WiLL, BY DEFAULT PROVE 

H SIDE OF fie! FENCE’ A PROBLEM LIES- 

DWAR C OR 18M. 
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THE FOLLOWING IS A DESCRIPTION OF THE PROGRAMMING TECHNIQES USED- 
IT IS BROKEN DOWN BY THE NEAREST DISCRiPTIVE ROUTINE- 


o=--=-=<KEYBOARD & PRINTER 1/0 ---<---- 

MESG: THIS ROUTINE PACKS THE TYPE OUT MESSAGE IN eure’ AREA = 
LOOKS TO SEE IF PRINTER IS BUSY = IF NOT, PRINTS AND 
RESTORES BUFFER AREA UNTIL MESSAGE IS COMPLETE. 


IF BUSY, IT PACKS BUFFER AREA UNTIL FULL, WAITING FOR 
THE OTHER PRINTABLE TASK TO COMPLETE. 


THIS APPROACH PROHIBITS MESSAGE INTERWEAVING. USES PROUT: 


PROUT: THIS ROUTINE SENDS DATA TO PRINTER BASED UPON TTY FLAG 
IS BUSY OR NOT. 


TKIN: THiS ROUTINE ACCEPTS CHARACTERS FROM KEYBOARD AND STUFFS 
THEM AWAY IN TBUF, BUT FIRST, IT CHECKS FOR CERTAIN CON- 
TROL CHARACTERS. 
“R = JUMP TO RESTART TO RESELECT PARAMETERS. 


“C = WHEN COMMAND (TCMACT) ACTIVE = SET ABORT 
FLAG (TCMDAB) 


“C = WHEN COMMAND (TCMACT) NOT ACTIVE = PRINT \ 
& RESET BUFFER PTR. 


A C/R DELIMITS TTY COMMAND = TCMACT IS SET = NOW IF YOU 


CONTINUE TYPING = TCMACT BEING SET WILL NOW THROW AWAY 
THOSE CHARACTERS. 


=-----MONITOR PARAMETER SETUP ------ 


SYSINT: THIS ROUTINE CLEARS THE THE WORLD, SETS UP TTY KEYBOARD 
& PRINTER VECTOR AREAS. 


jh MEMORY TIME OUT & MEMORY MANAGEMENT ERROR VECTOR 


CLEARS OUT SYSTEM BUFFER AREA & SETS UP TTY BUFFER POINTERS. 


SEQ 15 
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~-=-GETS DX ADDRESS = CHECKS FOR LIMITS SAVES IT IN UNADDR: 
@--"GETS DX VECTOR = DITTO 
GETS DEVICE ADDRESS IN HEX = ACCEPTS RANGE OF DEVICE 
ADDRESSES MUST NOT EXCEED 8 = SEPARATED BY A COMMA 
SAVES START DEV ADD IN SDEV 
SAVES END DEV ADD IN EDEV 
m=~-CHECKS FOR LEGAL TERMINATOR IE. C/R 
@~-=GETS CHANNEL TYPE MOR S 


~~==GETS ANSWER WHETHER MEMORY MANAGEMENT? Y OR N 
IF YES, SET UP VECTOR 4 AND TEST FOR EXISTANCE OF MEMORY 
MANAGEMENT. 


~---GET BUFFER RELOCATION IN ,000°S (THOUSANDS) 
* CHECKS FOR BOUNDARY 20000 OR GREATER 
* CHECKS FOR MULTIPLE OF 2000 
* ns TO SEE IF NUMBER IS VALID WITHIN MEMORY MANAGE- 
MENT AND COMPARES WHETHER M/M WAS SPECIFIED. 


----GET TEST TYPE = FRIEND OR 2848 = STORE IN TSTTYP: = IF 
FRIEND ASK NEXT QUESTION, IF 2848 JUMP TO INIT: 
~===SEPARATE 1/0 BUFFERS? Y OR N 
STORE IN IOBUF : 
IF 
==-FILL CHARACTER IN HEX 
SAVE IN FILLCH 
=----MONITOR SETUP SUBROUTINES----- 
NOMM: NO MEMORY MANAGEMENT AVAILABLE. 
MMERR: MEMORY MANAGEMENT TRAP OUT ROUTINE 


CLEAR WORLD 
TYPE OUT ERROR MESSAGE 
HALT 


16:28 PAGE 16 
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INITRT: tne eruets a remit: FOR INPUT = GETS IT O08 IF IT IS 
A C/R = DEFAULTS 


COTB: — CHARACTERS FROM INPUT BUFFER AREA = CONVERTS TO 
OCTAL AND SAVES RESULT IN R3 = THIS ROUTINE DOES_NO 
OTHER CHECKING THE CODE FOLLOWING UNIT EXAMINE R3 FOR 


CHTB: GOBBLES CHARACTERS FROM INPUT BUFFER AREA CONVERTS HEX # 
TO OCTAL AND SAVES RESULT. STORES AWAY TERMINATOR IN R4 


THE TERMINATOR SHOULD BE EITHER A C/R OR A COMMA, 


=----PROGRAM INITIALIZATION---- 


INIT: SET UP MEMORY TIME Ti TRAP 
~-~-SET UP DX ADDRESS TABLE. SET UP VECTOR ADDRESS WITH 
OTS wie BUFFER RELOCATION SPECIFIED = IF NOT START 


~~--TEST FOR MEMORY MANAGEMENT 
~---IF YES - SET UP MEMORY MANAGEMENT REGISTERS AND ENABLE 
MEMORY MANAGEMENT. 


~---SET UP SPW TABLE 
LOAD DXOS WITH BUFFER OFFSET (DEFAULT = 20000) 
CALCULATE ADDRESS OF DST TABLE = SAVE AT DSTOFF 


~~-=SET UP SPW TABLE = MOVE UCHK FOR ae DEVICE #°S 
MOVE DST ADDRESS TO VALID DEVICE # 
SPW TABLE = 400(8) WORDS. 


~-~-CLR TUMBLE TABLE & DUPLICATE TUMBLE TABLE. 
TT = 400(8) WORDS 
DTT = 400(8) WORDS 
~~--SET UP DST TABLE 
FIRST 11. BYTE LOCATIONS FILL IN WITH VALID COMMANDS. 


REMAINDER DST = UCHK 
DST = 128. WORDS = 256. BYTES 
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=--=SET UP FILL CHARACTER 


~~~-~COMPUTE oa NUMBER OF DEVICES +1 
SAVE AT MAXDEV: 
DEVCON = FIRST DEVICE =1 


=---START SETTING UP +S BUFFERS 
SAVE ADDRESS AT S 
MAKE THE FIRST bev it = 0 IN THIS TABLE 
CLEAR DEVICE STATUS BUFFER TABLE & INPUT BUFFER 


ree & SAVE ADDRESS OF INPUT/DISPLAY BUFFER IN DEVICE 


FFER AREA. 
CREATE & SAVE ADDRESS OF OUTPUT/DISPLAY BUFFER IN DEVICE 
BUFFER AREA, 


~~--FILL OUTPUT/DISPLAY BUFFER WITH FILL CHARACTER 
NOW CHECK IF ALL DEVICES HAVE HAD THEIR hi STATUS 
ht fl TABLES GENERATED = IF NOT, REPEAT INT130: THRU 


~ REMEMBER MEMORY MANAGEMENT HAS BEEN TURNED ON- 


CREATE ine aes oearee BITS AND SAVE AT XADDR: “he 
FIRST TIME T FLAG = QUESTION/ANSWERS WILL ONLY BE 
GENERATED IF MA 1008 & START. OR HITTING “S ON TTY KEYBOARD 


wowwwennTHE EXEC: SYSTEM EXECUTIVE/BACKGROUND -------- 
(A WAIT ROUTINE) 


EXEC: CLR SYSTEM FLAGS 
=~=-ANY COMMANDS TO EXECUTE? IF YES GO TO EXEC20. DID THE 
DX ABORT AN OPERATION = IF NOT SPIN HERE 


w~~nALWAYS COME HERE AFTER TELETYPE INPUT HAS TCMACT = 
THIS ROUTINE DISPATCHES YOU TO THE COMMAND TYPED IN = IF 
NOT AN Nee like er" . COMMAND = ? RETURN TO EXEC. 





SEQ 18 
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SEQ 19 


==-TYPICAL_DX COMMANDS=== 
(ENTERED VIA TTY KEYBOARD) 
RUN DX COMMAND 
RUN: CHECK IF DX IS ENABLED - 
IF YES, TYPE ? AND (BELL) RETURN TO EXEC AND 
WAIT FOR ANOTHER TTY COMMAND. 
IF _NO, CONTINUE 
RETURN TO EXEC. 


CLR OXCS 
INC DXCS = GO 


CLR DEVICE STATUS BUFFER TABLE 
(SCMD 


SLCMD 
estar (NOT SCURS, SINTB, SOUBF, SONLF) 


DO THIS FOR ALL DEVICE STATUS BUFFER TABLES (BASED ON 
MAXDEV: ) 


CLR DXACT, CMDCHF, DXABFL 


CLR TUMBLE TABLE & DUPLICATE TUMBLE TABLE 
SET EXTENDED ADDRESS BITS IN DXCS 


CHECK FOR CHANNEL TYPE 

IF SELECTOR CHANNEL SET BUSY ENABLE IN DXCS 
SET INTERRUPT ENABLE & ONLINE IN DXCS 
RETURN TO EXEC 


STOP DX COMMAND 
STOP: ace 7¥ nit TTY INPUT CHARACTER FOR THE MODE. 


on = (CRUNCH DX, CONVERT AND PRINT CURRENT DEVICE # 
IN HEX, PRINT 13 DX REGISTERS CONTENTS. 





—, 


——— 


—_—— 
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DUMP : 


(GLIMIT: 
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CLR ABORT FLAG (DXABFL), CLR DONE 
RESET DX, SET GO, RETURN TO EXEC. 


SET THE STOP FLAG (DXSTPF), TEST WHETHER STOP HAS 
TAKEN wet IF NOT , WAIT UNTIL DXSTPF HAS BEEN 
CLEARED ( TYPICALLY tHE PCHEND: ROUTINE WILL CLEAR 
DXSTPF (DXISR:)) , DISABLE DX , RETURN TO EXEC 


SAME AS D_ EXCEPT (TYPICALLY PESEND: OR 
PCHEND: ROUTINES WILL CLEAR DXSTPF (DXISR:)) 


SAME AS D_ EXCEPT ( TYPICALLY PCHIS: ROUTINE 
WILL CLEAR DXSTPF (DXISR:)) 


ANY OTHER CHARACTER = AN ILLEGAL CHARACTER 
DUMP COMMAND 


PICK UP THE NEXT SEQUENCE OF OCTAL NUMBERS OR NEXT CHARACTER 
FROM TTY INPUT BUFFER AREA. 


More CHECK IF THEY ARE OCTAL NUSERS IF YES, (SAVE IT); IF 


DETERMINE IF IT IS AN “‘I"*, *0"', “Tf 
F NOT ONE OF THESE = TYPE ERROR MESSAGE 


(SAVE IT) OCTAL NUMBERS, 1ST ADDRESS GIVEN = SADDR 


2ND ADDRESS GIVEN = EADOR. 


IF *'T’* =CHECK FOR 2ND T = CREATE STARTING ADDRESS 
OF DUPLICATE TT (TTPTR +1000) 
(SAVE) DTT2 = SADDR 


F °'** = CHECK FOR N = eo STARTING & ENDING ADDRESSES 
OF DEV ed CE 0 INPUT Bo ER TABLE 
SINBUF (DEV 0) = 
SADDR + 481. = EAD 

F *0"’ = NOW CHECK FOR T = CREATE STARTING AND ENDING 
ADDRESSES DEVICE 0 OUTPUT BUFFER TABLE 
SOUTB (DEVO) = SADDR 
SADDR + 479. = EADDR 


T UP DMPADR: TO CONTAIN THE ADDRESS OF THE 


NOW SE 
CORRECT DUMP ROUTINE (IE ASCII DUMP, EBCDIC, HEX, OCTAL) 


oe TO SEE IF IT IS ATT - If "es. DUMP DTT 
IN REVERSE = USES ADDRESS IN DM7ADR. CONTINUES DUMPING 
(PRINTING) UNTIL BEGIN OF bir IS SEEN. 


SEQ 20 
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IF NOT A TT DUMP = CHECK FOR A DEVICE # SPECIFIED = IF 
NOT JUST DUMP DEFAULTED LIMITS GET THE DEVICE #, CRUNCH THE 
Soe citice SADDR & EADDR TO POINT TO THE PROPER DEVICE 


CONVERT AND DUMP IT, STOPPING @EADDR 
RETURN TO EXEC.; LOOKING FOR MORE COMMANDS TO EXECUTE. 


FILL COMMAND 


FILL: ace 34 ag ye FROM TTY INPUT BUFFER AREA = PERFORMS 
VERY SIMILAR TO THE DUMP COMMAND EXCEPT IF FILLS AREA WITH THE 
SPECIFIED PILL CHARACTER (FILLCH) 


USE ONLY THOSE FILL COMMANDS AS SPECIFIED IN THE TEXT = ANY 
OTHERS MAY OBLITERATE THE CORE. 


BASICALLY THIS IS USED TO FILL THE OUTPUT OR INPUT BUFFER AREA 
WITH FILL CHARACTER (FILLCH) 


ACCESS COMMAND 


ACCESS: eis CORE LOCATION, ALLOWING t TO BE MODIFIED WITH NEW CONTENTS. 
RETURNS YOU TO THE EXEC, A C/R OPENS NEXT LOCATION ETC. 
“VERY SIMILAR TO “ODT” = 


ENABLE DEVICE 


ENABLE: GETS THE TYPED DEVICE # IN HEX 
CLEARS THAT yy STATUS TABLE 
CLR SSENSE, CLR SONLF 
RETURN TO EXEC 


KILL DEVICE 


KILL: GETS THE TYPED DEVICE # IN HEX 
MOVES A ‘*l"* INTO SONLF 
MOVES A_UNIT CHECK INTO THE SPW TABLE 
RETURN TO EXEC. 


INPUT COMMAND 


INPUT: CHECK FOR FRIEND OR 2848? = 2848 ONLY GET DEVICE # 
IN HEX FROM TTY Y INPU NPUT BUFFER, 
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PUT THE START fren takt IN DEVICE BUFFER AREA (SMI=112) 
SAVE DATA LOCATION (SMINS) 

INC CURSOR POSITION 
CHECK FOR END OF SCREEN (SCURS=478.) IF YES, PUT EOM 
(EOM=152) IN THE BUFFER AREA, INC CURSOR POSITION, QUEUE 
A READ REQUEST (SRDRQ) 


PUSH STACK (CREATE PHONEY INTERRUPT) 
JUMP DXEXEC 


~~~-=TYPICAL TT1 (TUMBLE TABLE) ENTRIES---- 
(THESE SERVICE ROUTINES ARE SELECTED BY THE DXISR 
ROUTINE WHEN THE TUMBLE TABLE ENTRY (TT1=DXDS) IS EXAMINED.) 
SYSTEM RESET 


PSYSRT: atk cite fit coe BUFFER TABLE. SETUP DISPLAY BUFFER 


DO THIS FOR ALL DEVICES 
CLR ACTIVE FLAGS, CMD CHAINING FLAG (DXACT & CMDCHF) 
CLR CUBUSY IN DxC¢S 


PROCESS NEXT ENTRY IN 
IF NO MORE TT ENTRIES - "60 TO DXEXEC. 
SELECTIVE RESET 
PSELRT: CLR DEVICE STATUS BUFFER TABLE 
FOR THAT DEVICE + SENSE 
T IS A SEL RESET ISSUED AGAINST THE CURRENT ACTIVE DEVICE. 
PROCESS ANY MORE TT ENTRIES THEN GO TO DXEXEC. 
INTERFACE DISCONNECT: 


PINDSC: IF DEVICE WAS ACTIVE, ITS DEVICE STATUS TABLE WILL BE 
CLEARED =~ IF NOT ACTIVE, IGNORE CMD. 


IF ACTIVE = QUEUE CE! DE IN SCMD 


(TYPICALLY IBM WILL INTERFACE DISCONNECT A DEVICE EVEN 
THO THE DEVICE WAS NOT ACTIVE) 


IF ACTIVE = CHECK FOR af & DXACT: FOR THAT PARTICULAR 
DEVICE = IF YES, CLR BOTH FLAGS = ONLY ONE DEVICE AT A TIME 
CAN HAVE CMD CHAINING AND/OR DX ACTIVE SET. 


IF NO MORE TT ENTRIES = GO TO DXEXEC. 


STATUS ACCEPT 
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PESENT: WAS LAST CMD A WRITE? IF SO, FORMAT THE DISPLAY (DISCTL) 
WAS ATTN ACCEPTED? = IF YES, SET SRDRQ (READ MANUAL 
INPUT REQUEST) 


IF NO, CON 
CLR OUT SLCMD (LAST CMD)(SET ONLY ON A WRITE) 
CLR DXACT DXACTIVE FLAG 
CLR DEVICE STATUS BUFFER TABLE 
TEST FOR CMDCHN (TT1)(DXDS) = IF YES, SAVE DEVICE # IN 
IN CMDCHF (ONLY ONE DEVICE AT A TIME CAN 


CMD CHAIN 
WAS A SE SPECIFIED? (STOP ON ENDING SEQ) = IF YES, CRUNCH 
Bexee « AND NO MORE TT ENTRIES GO TO 


NON~EXISTANT MEMORY = FATAL ERROR 


PNXM: oy kata THE * A INTERRUPTING 
EXIT ‘PROM DXISR = GO TO MONI’OR WAIT Lait ae 
(DO NOT PASS THRU DXEXEC ROUT INE = JUST ABORT) 


PARITY ERROR 


PPARER: eps STOP ON PARITY ERROR SPECIFIED? 


PROGRAM ( sy ge =0) HAS BEEN PRESET TO YES 
IF YES = CRUNCH 


IF NO (PARSTP: =>0) QUEUE A_UNIT CHK " SSTAT (STATUS WORD) 
RETURN TO DXISR AND CONTINUE CHECKING TT1 


EVERYTHING OK UP TO THIS POINT 
CHANNEL INITIATED SELECTION SEQUENCE 


PCHIS: WAS A SI (STOP ON ISS) SPECIFIED? 
tnones? YES, 1S DEVICE ONLINE? 
NO, SET INTREQ N SSENSE 
CMOCHF? IF YES, CLR CMDCHF 
ANY MORE TT ENTRIES? = IF NO, GO TO DXEXEC 


CMDREJ? YES, IS Re Hh ON LINE? 
VES. halen PARITY ERROR 
T, MUST BE ILLEGAL CMD = SET BUS OUT IN SSENSE 
if YES. SET SCMDRJ (COMMAND REJECT) IN SSENSE 


CMDCHF ? aes CLR_CMDCHF 
ANYMORE TT ENTRIES, NO, GO TO DXEXEC 


CMDREJ? NO, THEN PROCESS CMD (TT2 CONTAINS CMD) 
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CHANNEL 
PCHEND: 


(LOOP) 


CONTROL 
PCUEND : 


DXISR: 


IS THIS a TIO CMD? IF YES, IGNORE, CHECK CMDCHF ETC, 
ANYMORE TT? NO? GO TO DXEXEC 


IS THIS A_NOP CMD? IF YES, IGNORE, CHECK CMDCHF ETC, 
TT ENTRIES?, NO GO TO DXEXEC 


IS THIS A VALID CMD? NO = ABORT PX (OXAB: £) aoe g EXIT FROM DXISR & 
YES = QUEUE CMD D Tea | TO SCMD 
IS CMDCHF SET? YES, CLR CMDCHF 
ANYMORE TT ENTRIES, NO? GO TO DXEXEC 
END, PREPARE ENDING SEQUENCE RESPONSE 
CLR DXACT 
WAS STOP ON DATA TRANSFER DONE? YES, STOP Dx 
NO, QUEUE CEDE T 
SUBTRACT DXBYTE COUNT (DXBC) FROM SRBYTC 
WAS THERE A PARITY ERROR? IF YE 
QUEUE EQPCHK TO SSENSE (EQPCHK = 20 ) 
ANYMORE TT ENTRIES? NO, GO TO DXEXEC 


UNIT END 


CLR DXA 
USED TO KEEP TRACK OF REMAINING BYTE COUNT (SRBYTC) 
yr oo OF CURRENT BUFFER POINTER (MULTIPLEXER CHANNEL) 


=~~ DXISR (DX11B INTERRUPT SERVICE ROUTINE) === 


THE DX SHOULD MAKE ENTRIES IN TT = INTERRUPTS VECTORING 
THRU Ww N PSW IS < DX11B 


CHECK IF wrt! TT ENTRY UPON INTERRUPT 
IF ZERO = ASSUME TT ENTRY HAS ALREADY BEEN PROCESSED - 
RETURN FROM INTERRUPT 


It NON-ZERO, CLEAR "DONE (DXxCS) FOR Every YT 
= SAVE FIRST TT ENTRY IN DUPLICA TET corr) g 
SAVE SECOND TT ENTRY IN DUPLICATE TT (DTT2) &T 
CLR BOTH iT ENTRIES TO SIGNIFY SHAT THEY WERE PROCESSED. 


NOTE: v) mes CONTENTS OF DXDS...1T2 CONTAINS CONTENTS 


ENTRY 
1 


PICK UP DTT2 AND CHECK FOR VALID DEVICE # (TT2=DXxCA) 
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SEQ 25 


THE ORDER IN WHICH THE FIRST TUMBLE TABLE oe IS Berit i 
IS_ IMPORTANT. yt FIRST FOR SYSTEM RESET , PARITY ERRORS, 
fost HEN, CHECK FOR CHANNEL pe MyM SEQUENCE. Sy ae END, 


(DX 
IF GO TO SYSTEM RESET (PSYSRT:) 
» SELECTIVE RESET? (Dx ps) 
* CHECK FOR INTERFACE DISCONNECT? (DXDS) 
* NON-EXISTANT MEMORY? (OXDS) 
+ STATUS. ACCEPTED? (DXDS) 
F TO PESE 
* PARITY ERROR? (DX DS) 
IF YES, GO TO PPARER: 
* CHANNEL INITIATED SEQUENCE? ( 
IF YES , 0 TO TCHIS: (EVERY THING OK UP TO THIS POINT). 
F : $ 
* CONTROL UNIT END? (DXDS) 
IF Y TCUEND: 
* INITIAL SELECTION SEQUENCE REJECT? (DXDS) 
NO? IGNORE ENTRY...TREAT AS STACK STATUS 
GET NEXT TT ENTRY AND DO REST OF x BOY ~ eg HOWEVER, 
INITIAL SELECTION SEQ WAS REJECTED ,ENTER A QUEUE C 
UNIT END TO, 360 (QUEUE A CONTROL UNIT END(QCUE=10) 70. ScHD OF PROPER DEVICE 
=YOU WILL STAY IN THIS SECTION OF CODE UNTIL ALL TT ENTRIES 


HAVE BEEN PROCESSED. WHEN THERE ARE NO MORE TT ENTRIES TO 
PROCESS eee e JUMP To O Dx EX ECs. 


~~=DXEXEC: OVERVIEW ¢ CMD DISPATCH SECTION 
OF THE DXISR) --- 
DXISR HAS THE PRIORITY LEVEL AT 7 PREVENTING ANY MORE INTERRUPTS. 
~ IT HAS PROCESSED ALL THE TT ENTRIES BEFORE GETTING INTO THIS CODE 
newer THROUGHOUT THE DXISR_ INTERRUPT SERVICE 1 jaa 
A RESULT OF tee TT ENTRIES, THE PR 
BEEN SETTING OR PUTTING SPECIFIC #°S IN THE DEVICE s 
BUF THE OMMANDS OR WHATEVER WE 
ING QUE OR : ESSING. HOPEFUL 
WAS SERVICED SOME OF THESE WERE CANCELLED OR 
REFLECT THE TRUE srarys THAT MUST BE PRESENTED TO THE 360 
CHANNEL. (I KNOW THAT MAY BE DIFFICULT TO REMEMBER). WELL, 
I ME HESE QUEVED COMMANDS. 
ry CAN ext FROM THE DXISR: BY SEVERAL PATHS; EXECUTING 
SEND ‘‘ATTENTION’’ CHAINING, OR A 


OMMAND COMMAND 
SVSiER RESET, INTERFACE DISCONNECT, ETC.. 


i 
Ne Se eee 
—————— 
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THE DXEXEC: ROUTINE FIRST DETERMINES wre TneR i, CHANNEL 
WAS SELECTOR OR MULTIPLEXER (CHTYPE = ‘™’’ s 


ne 


TYPICAL SELECTOR COMMANDS (FOR EACH DEVICE #) 


oie FULL BUFFER (SCMD = 1) 

READ MANUAL INPUT (SCMD = 2) 
ENDING SEQUENCE (SCMD = 3) 
SENSR COMMAND (SCMD = 4) 
oi. 1 3" (SCMD = 5) 
READ F FER (SCMD = 6) 
ERASE Con (SCMD = 7) 
CONTROL UNIT END yt s+ i ms 


SEND ATTN TO (S 
READ SHORT MANUAL INPUT (SCMD 212) 


TYPICAL MULTIPLEXER COMMANDS (FOR EACH DEVICE #) 


WRITE FULL BUFFER (SCMD = 1) 
READ MANUAL INPUT (SCMD = 2) 
ENDING SEQUENCE (SCMD = 3) 
SENSE COMMAND (SCMD = rH 
WRITE LINE ADDRESS (SCMD = 

READ FULL BUFFER (SCMD = é 
ERASE COMMAND (SCMD = 7) 
CONTROL UNIT END (SCMD “133 


SEND ATTENTION (SCMD =1 
READ SHORT MANUAL INPUT (SCMD =12) 


w~~~SELECTOR/MULTIPLEXER COMMAND DESCRIPTION ---- 
wne~ SELECTOR CHANNEL ---- 


IS THERE ANY COMMANDS TO EXECUTE (PER DEVICE)? IF NO, HECK 
FOR COMMAND CHAINING: IF YES, EXIT FROM THE DXISR WAIT 

FOR THE INTERRUPT (REMEMBER, YOU MUST EXIT IN ORDER TO 

DROP THE ESSOR LEVEL “RESULTANT DXISR INTERRUPT WILL 
PROCESS NEW TT ENTRIES. 


If CMDCHF = 0 CHECK TO SEE OF THE ATTENTION FLAG (SRDRQ) 
FOR THAT DEVICE IS SET. IF YES, QUEUE A “’SEND ATTENTION’ 


SEQ 26 
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eat G IF NO, RETURN TO DXEXEC AN REPEAT FOR NEXT DEVICE 
REPEAT UNTIL ALL DEVICES HAVE BEEN SERVICED BEFORE 
EXITING FROM DXISR. 


IF THERE WAS A COMMAND TO EXECUTE (SCMD=KX) GO TO THAT 
ROUTINE SPECIFIED BY THE COMMAND. WHEN COMPLETE...EXIT 


w-----DESCRIPTION OF COMMAND ROUTINES (SELECTOR)----- 


WRITE LINE ADDRESS 
WRITE FULL BUFFER 


SWRITE: SET UP THE ADDRESS a INPUT BUFFER AREA (SINBF) INTO DXBA 
SUBTRACT pet ie OFFSET 

SET BYTE COUNT IN DXBC 

SET DEVICE ADDRESS IN DXCA 


« SAVE COMMAND (SLCMD <=---== SCMD) 
- CLR SSENSE 

- SET DEV ACTIVE _ (DXACT) 

- SET_INPUT FUNCTI 


ON & GO IN DXCS 
. EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES | 


THE SAVING OF SLCMD SIGNIFIES TO THE PRESENT ENDING 
SEQUENCE (PESEND) THAT IT MUST FORMAT THE DISPLAY (DISCTL) 


| 
READ COMMAND (READ FULL BUFFER) 


SREAD: SET UP THE ADDRESS OF THE OUTPUT BUFFER AREA (SOUTB) | 
INTO DXBA. SUBTRACT PHYSICAL OFFSET. | 
- SET BYTE COUNT IN DxBC | 
. SET DEVICE ADDRESS IN DXCA | 
. CLR SSENSE | 
> SET DEV ACTIVE FLAG (DXACT) : 
- SET OUTPUT FUNCTION & GO IN DXCS | 

- EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES. 


READ MANUAL INPUT 
READ SHORT MANUAL INPUT 


py IS IT FRIEND? IF YES, TREAT AS READ FULL BUFFER | 
DID You s SPECIFY A READ REQUEST? NO? ASSUME THE 
GAVE AN UNSOLICITATED , eeest (POLL) AND SEND BACK 
AN ENDING SEQUENCE (ESEQ: 


AF READ R REQUEST WAS SET-PROCEED - | 
SAVE AST COMMAND 
SET UP STARTING ADDRESS - Ove SMINS TO DXBA 
SUBTRACT PHYSICAL OFFSET FROM DXBA 

CALCULATE BYTE COUNT AND err DxXBC 


IF BYTE COUNT IS ERRONEOUS = JUST aed AN ENDING SEQUENCE 
COMPUTE DEVICE ADDRESS AND SET DXCA 
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SEQ 28 
MAINDEC=11-CZDXI-C NEW erie RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 28 
CZ2DX1C.P11 07-JUN-82 16:21 PROGRAM DESCRIPTION 
CLR SSENSE 
SET DEVICE oA ha FLAG (DXACT) 
SET OUTPUT FUNCTION AND 


GO_IN DxCcsS 
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES. 
PRESENT ENDING STATUS TO CHANNEL 


ESEQ: QUEUE CE & DE TO SSTAT 
CALCULATE DEVICE ADDRESS AND SET DXCA 


CHECK FOR et A ee BIT SET. IF YES, QUEUE SSTAT WITH 
UNIT CHECK ON 


IF NO, MOVE SSTAT TO DxOS 

SET STATUS FUNCTION & GO TO DXCS 

SET DEVICE ACTIVE FLAG (DXACT) 

EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES. 


PRESENT CONTROL UNIT END 


CONUNE: QUEUE A CONTROL UNIT TO SSTAT 
CALCULATE DEVICE ADDRESS AND SET DXCA 
CHECK FOR UNIT CHECK BIT SET 
IF YES, yQuEUE SSTAT WITH UNIT CHECK ONLY 
IF NO, MOVE SSTAT TO DXOS 
SET STATUS F FUNCTION & GO TO oxcs 
SET DEVICE ACTIVE FLAG (DXACT) 
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES. 


ERASE COMMAND 


ERASCM: ty AN EBCDIC SPACE THROUGHOUT OUTPUT DATA BUFFER (SOUTB) 
CLEAR CURSOR POSITION (SCURS) 
CLEAR wy NSE 
QUEUE A CE & DE TO SCMD he WHATEVER WAS IN SCMD) 
DO AN ENDING SEQUENCE = (ESEQ: 


SENSE COMMAND 


SENSCM: MOVE THE ADDRESS OF THE aon oie (SSENSE) TO DXBA 
awe E DEVICE ADDRESS AND SET DXCA 
SET UP TO SEND ONE BYTE TO DxBC 
SET DEVICE ACTIVE FLAG (DXACT) 
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES 


w--=- MULTIPLEXER CHANNEL =-== 








a ee 2 a 
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MEX: 1S COMMAND CHAINING SPECIFIED? (CMDCHF) IF YES, EXIT FROM 
DXISR TO ALLOW = 0 IF NO, PICK UP LAST DEVICE ADD 
THAT HAS A LOHAN EXECUTED = HAS IT BEEN EXECUTED? CTYPICALLY 
SYSTEM RESET, SELECTIVE RESET, INTERFACE DISCONNECT 
STATUS ACCEPTED, CHANNEL END, OR CON TROL UNIT END WILL 
TERMINATE DXACT IN A COMMAND SEQUENCE) 


GO TO DEVICE AND FIND OUT IF THERE IS A JOB T 
IF NOT, QUEUE ATTENTION’ IFF ATTENTION IS REQUESTED (SRDRO=1) 
=GO EXECUTE COMMAND. 





SEQ 29 


~--==DESCRIPTION OF COMMAND ROUTINES (MULTIPLEXER)----- 


THOSE THAT ARE COMMON TO THE SELECTOR CHANNEL WILL NOT 
BE EXPLAINED HERE = REFER BACK TO SELECTOR 


WRITE FULL BUFFER 
MWRITE: IS THERE A roo IN PROGRESS? ag ty 
IF NO, ser y - XBA © yan SUBFA 
DXCA 
TES MAXIMUM TRANSFER IN DXBC 
SAVE COMMAND (SLCMD <=---=- SCMD 
SET vir. ith, # (DXACT) 
SET INPUT ON & GO_IN DXCS 
EXIT FROM DXISR. AND WAIT FOR NEW TT ENTRIES 
IF THERE WAS A WRITE IN PROGRESS JUST CONTINUE AS ABOV E 
te SRBYTC = 0, THEN SET UP TO MAXIMUM INPUT BUFFER 
SRBYTC IS DECREASED BY THE FOLLOWING TT ENTERED 
ROUTINE = (PREPARE CONTROL UNIT END (PCUEND)) 
SBUFA IS INCREASED BY THE SAME ROUTINE (PCUEND) 
A 360 WRITE (MUX) WILL TRANSFER 4 BYTES AT A TIME 
THE SAVING OF SLCMD SIGNIFIES TO THE PRESENT ENDING 


arc (PESEND) THAT IT MUST FORMAT THE DISPLAY 
(DISCTL) 


READ COMMAND 
MREAD: SAME BASICALLY AS MWRITE A aled IT USES SOUTB AND SETS ' 
OUTPUT FUNCTION & GO IN DXCS 
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MAINDEC=11=CZDXI-C NEW DX11-B8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 
CZDXIC.P11 O7-JUN-82 16:21 PROGRAM DESCRIPTION 
IF READ REQUESTED = YES (SRDRQ =1) SAVE CMD FOR DISPLAY 
CONTROL (SLCMD 
COMPUTE ADDRESS OF OUTPUT BUFFER 
COMPUTE THE BYTE COUNT 


GO TO READ (MREAD:) 


NOTE: AFTER TRANSFER 4 THE 4 BYTES, THE = WILL ++ atone TO ZERO 
CREAT TROL UNIT END TT ENTRY Sek ur 
SRBYTC WILL BE DECREMENTED BY 4 AND SBUFA WILL BE 
INCREMENTED BY 4== THIS APPLIES TO ALL B.., SELECTOR OR 
MULTIPLEXER READ OR WRITES IF THE DX HARDWARE IS 
FUNCTIONING CORRECTLY. 


~--MISCELLANEOUS ROUTINES --- 


ASCOMP: THESE ROUTINES SPIT OUT THE CHARACTER 
EBCOMP: EQUIVALENT OF THE ORIGINAL OCTAL BYTE 
oe IN ASCII, EBCDIC, HEXIDECIMAL , OR OCTAL.. 


DISPLAY CONTROL ROUTINE 


DISCTL: WAS IT A READ MANUAL INPUT COMMAND (SLCMD=2) IF YES, PICK 
UP SMINS. BACK UP. BLANK CHARACTER, SAVE SCURS & RETURN 


SMINS: LOADED IN INPUT COMMAND (ENTER DATA ON A 7260 SCREEN) 
SMINS: USED IN READ MANUAL INPUT COMMAND 
SMINS: USED IN PERFORM READ MANUAL COMMANDS 


S_IT A SHORT READ MANUAL INPUT (SLCMD=12) 
it YES, JUST RETURN 


IF NEITHER, THE COMMAND MUST HAVE BEEN A 360 WRITE. 


WAS IT FRIEND OR 2848? 

If At AND NOT SEPARATE 1/0 BUFFERS (10BUF=0) 
COPY INPUT BUFFER TO OUTPUT BUFFER 

If ath AND SEPARATE 1/0 BUFFERS (JOBUF=1) 
DON'T COPY INPUT BUFFER TO OUTPUT BUFFER 


IF 2848, GET ADDRESS OF START OF INPUT (SINBF) 
WAS THE LAST CMD A WRITE LINE ADDRESS? (SLCMD=5) 
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SEQ 30 
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SEO 31 
MAINDEC=11=CZDXI-C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 31 
CZDK1C.P11 07-JUN-82 16:21 PROGRAM DESCRIPTION 
DX ABORT 
DXAB: 


CLEAR DX INTERRUPT ENABLE TO PREVENT ANY MORE INTERRUPTS 
Fly "Wien eelia TO ABORT 
(TYPICALLY CAUSED BY A pti ERROR (NON EXISTANT MEMORY, 


INVALID C 
~--=DEVICE STATUS TABLE. FLAGS----- 
DESCRIPTION OF THE DEVICE STATUS TABLE FLAGS. (THERE IS 
ONE FULL SET PER SPECIFIED DEVICE). 
1) THEY ARE BROKEN DOWN TO THEIR POSSIBLE CONTENTS 


2) HOW THEY ARE USED BY THE PERTINENT ROUTINE (CLOSEST 
SIGNIFICANT ROUTINE) 


= A LISTING OF WHAT ROUTINE CLEARS THE FLAG, 
OR SET THE FLAG, OR USES THE FLAG. 


THESE FLAGS ARE USED ACTIVELY BY THE PROGRAM TO KEEP TRACK 
OF SIGNIFICANT EVENTS. 


SCMD (0) 


SCMD <---= IDLE = 0 (NO COMMAND) 
<---= SWRITE: & MWRITE: 
SRMI: & MRMI: 


ao 


<---- SENSCM: 
<=--= SWRITE: & MWRITE: 
<=-"= SREAD: § MREAD: 


QCUE 
won= ‘ATTENTION’ 
- SSRMI: & MSRM 


* PROGRAM GENERATED COMMANDS- THE 
OF IBM 360/370 COMMANDS (TT 


— NOUN EI 


ND NO 
=> 
= 


E 


D2 
a ee 
an 
nw 
7 


WERE AS A RESULT 


HOW USED 


PESEND: USED TO QUEUE INFORMATION IN SRDROQ & SLCMD FOR 


LATER et Ae 
SEX: USED TO PERFORM THE 360 CMD = SET UP DX AND DO IT 
MWRITE: & SWRITE: USED TO SAVE LAST COMMAND IN SLCMD FOR LATER 


PROCESSING 
MSRMI: & SSRMI: USED TO SAVE LAST COMMAND IN SLCMD FOR LATER 


te 








ee 
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MACY11 30A(1052) O7=JUN-82 16:28 PAGE 32 


CZDX1C.P11 O7-JUN-82 16:21 PROGRAM DESCRIPTION 
PROCESSING. 
SET UP IN USED IN CLEARED IN 
TISSRJ PESEND: CDEVST: (RUN:,ENABLE:, 
PINDSC SEX: & MEX: KILL: Yeats ;PINDSC: ’ 
ISS: SWRITE: & MURITE : PESEND:) 
PCHEND: SSRMI: & MSRMI: 
ERASCM: 
SSENSE (2) 
SSENSE <-=-= INTREQ =100 
<---- BUSOUT =40 
<==-= SCMDRJ =200 
feece EQPCHK =20 
HOW USED 
“USED BY 1 9 WHEN REQUESTING A SENSE CMD 
E. SENSCM: MOV #SSENSE,aDXBA 
SET UP IN USED IN CLEARED IN 
PHIS: SENSCM: 
PCHEND NABL 
PSYSRT 
PSELRT 
SWRIT 
SREAD 
ERASCM 
MWRIT 
MREAD 
SSTAT (3) 
SSTAT <==-= UCHK = 2 
Qeeee cE! = 1 
<see- ATIN = 
Be ee CUE s 


SEQ 32 





MAINDEC=11=CZ0XI-C NEW DX 
CZOXIC.P11 07-JUN-82 16: 


HOW USED 


USED BY 360 WHEN REQUESTING STATUS ;WITH EXECEPTION 
vie tO. ASYNCRONOUS PRESENTING OF STATUS (ATTN) TO 


“IE. STOUT: MOV SSTAT,@DXOS 


Dx1 ~ RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 


1 
2 PROGRAM DESCRIFTION 


SET UP IN USED IN CLEARED IN 
PPARER: STOUT: 
ESEQ: CDEVST: (RUN: ,ENABLE:, 
CONUNE : KILL: oo ,PINDSC:, 
SATIN: PESEND: ) 
SCURS (4) 
SCURS <==== ANY # FROM 0 TO 479. (CURSOR POSITION) 
HOW USED 


INPUT: ae 3 TO om SATE CURSOR POSITION TO CREATE OUTPUT TABLE 
MSRMI: & SSRMI: USED 10 CALCULATE BYTE COUNT FOR USE @DXxBC 


USED IN CLEARED IN 
INPUT: PSYSRT: 
SSRMI: DISCTL: 
ERASCM: 
SINBF (6) 


SINBF <==== ADDRESS OF DEVICE INPUT/DISPLAY BUFFER 


HOW USED 


DUMP : ust Agen y a ata TO ASCERTAIN BOUNDARIES 


E 
pisces SED BY PROGRAM TO CALCULATE BOUNDARIES FOR INPUT BUFFER 
MURITE: & SWRITE: USED BY PROGRAM FOR CALCULATION 
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SEQ 33 
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MAINDEC=11=CZDXI1-C NEW DX11=-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 34 
CZDX1C.P11 07-JUN-82 16:21 PROGRAM DESCRIPTION 
SET UP IN USED IN 


INIT: (INT140:) : 
DISCTL: 
MWRITE: & SWRITE: 


SOUTS (10) 


SOUTB 9 <==== ADDRESS OF DEVICE OUTPUT/DISPLAY BUFFER 


HOW USED 


DUMP: USED BY PROGRAM DUMP COMMAND TO ASCERTAIN 
ARIES OF THE OUTPUT BUFFER 

INPUT: wm TO CALCULATE START OF DATA LOCATION FOR 
OADING OF THE OUTPUT BUFFER FOR A SUBSEQUENT 


ie READ 
DISCTL: -_, i PROGRAM TO CALCULATE BOUNDARIES FOR eure BUFFER 
MREAD: & S & MSRMI: USED TO CALCULATE BYTE COUNT FOR 

Dx xc tien READ) 
PSYSRT: USED TO CLEAR OUT OUTPUT BUFFER AREA (WITH FILLCH) 
ERASCM: USED TO CLEAR OUT BUFFER AREA (WITH EBCDIC SPACE = 100) 


SET UP IN USED IN 


INIT: (INT140:) DUMP : 


INPUT: 

PISCTL 

SSAMI : ‘ MSRM]: 
PSYSRT: 


ERASCM: 
MREAD: 


SBUFA (12) 


SBUFA <==== CURRENT BUFFER ADDRESS (FOR MUX CHANNEL ONLY) 
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CZDX1C.P11 07-JUN-82 16:21 PROGRAM DESCRIPTION 
HOW USED 


MSRMI: & MWRITE: & MREAD: USED TO KEEP TRACK OF CURRENT 

ee tee payed e INCLUDING MEMORY MANAGEMENT=-- 
ALSO USED TO CALCULATE BYTE COUNT (SRBYTC)-- 
LOADED IN DXBC 


SET UP IN USED IN CLEARED IN 
PCUEND: MWRITE: CDEVST: (RUN:, 
MWRITE: MREAD: ENABLE : KILL: "A nil 
MREAD: MSRMI: PINDSC: *PESEND: ) 
MSRMI: 

SONLF (16) 


SONLF <===~ ONLINE = 0 
<eo~= OFFLINE =1 
HOW USED 
PHIS: IF ous IS OFFLINE-- Reve AN INTERVENTION REQUEST 
O IBM CHANNEL (SSENSE) 


ro UHEN CHANNEL TIMES OUT WHEN DX DIDN'T RESPOND - 
IT WILL PROBABLY SEND A SENSE CMD , THEREBY 
READING THE SSENSE 


SET UP IN USED IN 


PCHIS: 





SEQ 35 
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CZDXIC.P11 07-JUN-82 16:21 PROGRAM DESCRIPTION 



















SRDRQ <==== READ REQUEST =1 


Cewen 


LEA = 0 
<== READ REQUEST ACCEPTED (360)= 2 


HOW USED 


MEX: & SEX: USED TO FORCE AN ATTENTION (11) RESPONSE 


L 
MSRMI: &SSRMI: USED 4 A DETERMINE IF AN wa 
IBM READ HAD TRANSPIRED=~ IF YES, SJEUE AN 


ENDING SEQUEN tf \ 
SET UP IN USED IN CLEARED IN 
INPUT: = 1 SEX: & MEX: RUN: 
PESEND: = 1 SSRMI: PSYSRT: 
SSRMI: 
SMINS (20) 


SMINS <==== ADDRESS OF THE DATA POINTER (MANUAL INPUT READ) 


HOW USED 


Ab USED TO CALCULATE THE RELATIVE CURSOR ec ¥- (SCURS) 
: & SSRMI: USED FOR STARTING DATA ADDRESS FOR DXBA 


SET UP IN USED IN CLEARED IN 


DISCTL: RUN: 
SSRM]: & MSRMI: PSYSRT: 





SEQ 36 
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COME PHL ohes NEW D + =-B RESPONDER MACY11 30A(1052) 07=JUN-82 16:28 PAGE 37 
CZOXIC.P11 07-JUN-82 16:21 PROGRAM DESCRIPTION A 
iar ee NEW DX11-B8 RESPONDER 





SEQ 37 








MAINDEC=11=CZDx1-C wey ox 


CZ0x1C.P11 
1953 


07-JUN-8 


Dx11-8 
:21 





=B RESPONDER 


MACY11 30A(1052) O7=JUN-82 16:28 PAGE 38 
PROGRAM EQUATES AND DEVICE ASSIGNMENTS 


~SBTTL PROGRAM EQUATES AND DEVICE ASSIGNMENTS 


; SYSTEM EQUATES 
RO = 20 
R1 s %1 
he = z 
R = z 
RG = 24 
RS = %5 
R6 = %6 
SP s 26 
PC = %7 
PSwW s 177776 
KISARO = 172340 
KISAR7 = 172356 
KISDRO = 172300 
SRO = 177572 

3 TELETYPE CHARACTER EQUATES 
CR = 15 ZCARRIAGE RETURN 

F = 12 sk 
SPACE = 40 sSPACE CHARACTER 
ie . @ sCONTROL C 

TL. = 1 sCONTROL 
CTL.R = § sCONTROL R VRG-02-F EB-82 
CTL.S = § sCONTROL S$ 
CTL.U = £35 sCONTROL U 

= * 


SEQ 38 
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SEQ 39 
MAINDEC=11=CZDXI1=C NEW DX11-B8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 39 
CZDXIC.P11 -O7=JUN=82 16:21 PROGRAM EQUATES AND DEVICE ASSIGNMENTS 
1985 FARRAR AAAAAAEAAAAAAAAAAEHEREEAAERAERAEERARRAERREREHREEREROREREREEE 
1986 3* * 
1987 * DEVICE BUFFER LAYOUT (1 PER DEVIUE) ; 
<8 
1989 Cama aan" Bry 97 mtn tmnacee 
1990 ie LOC - DEVICE | STATUS TABLE * 
1991 3* LOC 60543 = DEVICE INPUT BUFFER « 
199¢ * LOC 554-1023 = bevice OUTPUT/DISPLAY BUFFER « 
199 aint atama peg antag tan i 
1994 ; LAYOUT OF DEVICE STATUS TABLE 
1996 000000 § = 0 :CURRENT DEVICE COMMAND 
1997 000001 = 1 tL IF WRITE 
1998 00000 SSENSE = é SDEVICE SENSE <BvTe wMOTE -- MUST BE EVEN BYTE LOCATION) 
1999 00000 = [DEVICE $ 
2000 000004 SCURS = 4 CURSOR SOS I TION 
2001 000006 SINBF = 7 TADDRESS OF DEVICE INPUT BUFFER 
2002 000010 SOUTB = 19 SADDRESS OF DEVICE _iurPur BUFFER 
2003 000012 SBUFA = 1 [CURRENT BUFFER 
2004 000014 SRBYTC = 14 REMAINING BYTE COUNT 
2005 000016 SONLF = 16 VICE ONLINE = INDICATOR O=ON-LINE 1=OF F-LINE 
2006 00001 SRDRQ = 17 READ MANUAL INPUT REQUEST -- IF NON-ZERO 
2007 000020 SMINS = 20 SSTART OF MANUAL INPUT 
2009 : LOCATIONS 22-77 ARE AVAILABLE FOR EXPANSION PURPOSES 
2011 ‘ 
2012 
2013 5 
oo18 : OTHER 0X EQUATES 
2016 900000 DEV : R : CURRENT DEVICE NUMBER 
2017 00090 DTAB = R DRESS OF CUR DEV STATUS TABLE 
2018 000004 TT1 = 04, TUMBLE TABLE ENTRY 1 
2019 000005 TT2 > RS : TUMBLE TABLE ENTRY 2 
2020 006003 CEDE == 3 [CHAN END & DEV END 
2021 000010 QCUuE = 10 3CODE TO QUE CONTROL UNIT END 
2022 000003 NOP = c 
000025 NEWLNE = 5 CNEW LINE CHARACTER 
2024 000100 EBCDSP = sEBCDIC SPACE CODE 
2025 00011 SMI > 11 ZSTART OF MESSAGE INDICATOR 
20, 00015 EOM = 15 SEND OF MESSAGE INDICATOR 
7 00005 LINS2 = 40. [NUMBER OF CHARACTERS PER LINE oF 2260 DISPLAY 
8 000014 NOLIN = 12. SNUMBER OF LINES PER 2260 DISPLAY 
29 000740 DISPS2 = IN*LINSZ ZNUMBER OF CHARACTERS ON THE DISPLAY 
2030 001000 TISIZE = 512. ZNUMBER OF ENTRIES IN TUMBLE TABLE 
2032 
34 ; 360 COMMAND EQUATES 
3 900001 CMWRT = 1 sWRITE DATA (FROM 360 TO PDP-11) 
3 : MRM] = 2 T (PDP=11 TO 360) ry 
00000 CMUTLA = tURITE LINE ADDRESS (360 TO 11) ef 4 
2059 000006 CMREAD = : L R (PDP=11 TO 360) ‘ bg 
00001 CMSRM] = 12 3 INPUT (PDP=11 TO 360) 
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MAINDEC=11=CZDXI=C NEW DX11=B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 40 
CZDXIC.P11  07=JUN-82 16:21 PROGRAM EQUATES AND DEVICE ASSIGNMENTS 

2041 ; 

204 F DX REGISTER ASSIGNMENTS & LAYOUTS 

204% ; DXDS OR TUMBLE TABLE ENTRY 1 (TT1) 

2046 100000 PARER = 100000 sPARITY ERROR DETECTED 

2047 040000 XM = 40000 [NON EXISTENT MEMORY CONDITION 

2048 920000 SELRST = 20000 [18M SELECTIVE RESET 
9 010000 SYSRST = 10000 18M sys TEM RESET 
0 000 INFDSC = 4000 [IBM PROGRAMMED INTERFACE DISCONNECT 

2051 002000 UCHKS = 2000 [UNIT CHECK WAS PRESENTED TO THE CHANNEL 

205 001000 CHENDS = 1000 [CHANNEL END WAS PRESENTED TO THE CHANNEL 

205 000400 = 400 [BUSY WAS PRESENTED TO THE CHANNEL 

2054 000200 CHIS == 200 ZCHANNEL INIT SELECTION SEQ WAS COMPLETED 
5 000100 ESEND = 100 ‘CHANNEL ACCEPTED LAST STATUS 

2056 000040 CHEND = 40 ‘CHANNEL DATA TRANSFER END 

2057 000020 CUEND = 20 ‘DX DATA TRANSFER END 

2058 000010 ISSREJ = 10 SINIT SELECTION SEQ WAS REJECTED 

2059 CMDCHN = 4 [CHANNEL SPECIFIED COMMAND CHAING 

2060 2 STKSTB = 2 [CHANNEL COULD NOT ACCEPT LAST STATUS 

2061 000001 CMDREJ = 1 ;CHANNEL COMMAND WAS REJECTED 

ie: 

2064 : 

2065 : DXCA OR TUMBLE TABLE ENTRY 2 (TT2) 

soee : S$ 15-8 = COMMAND (IF 

2068 : Bits 7-0 = DEVICE ADDRESS 

2069 : 

2070 : 

2071 ; DXCS CONTROL UNIT STATUS REGISTER 

2073 004000 BSYEN = 4000 ;BUSY RENABLE = FOR SELECTOR CHANNELS 
7% 001000 DXONLN = 1000 ZON@LINE INDICATION 

2075 000400 CUBUSY = 400 [CONTROL UNIT BUSY 

2076 000200 DONE = 200 [DONE FLAG 

2077 000100 DXENB = 100 S INTERRUPT ENABLE 

2079 ; BITS 4+3 ARE SET IF EXTENDED ADDRESS IS USED > 32k 

3080 : BITS 2-0 ARE THE FUNCTION TO BE PERFORMED 

2082 000001 DxRST = 1 :DX RESET COMMAND 

208 000003 DXwWR = ; sWRITE DATA TO THE 9 

2084 000005 DXRD = TREAD DATA FROM THE 360 

2085 000007 DXST = ? SSEND STATUS TO THE 360 

2087 

2088 ; 

2089 ; 

$08" ; DXOS OFFSET AND STATUS REGISTER 

209¢ ; BITS 15-10 OFFSET OF SPW TABLE 

209 ; STATUS REGISTER DEF (stand = STATUS BYTE 

2095 000200 ATIN- = 200 ZATTENTION 

2096 000100 STAMOD = 100 TSTATUS MODIFIER 











| C 4 
SEQ 41 


MAINDEC=11=CZDx1~¢ NEW D K11°8 “B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 41 
CZDXIC.P11 | O7*JUN-82 16:21 PROGRAM EQUATES AND DEVICE ASSIGNMENTS 
2097 000040 CUE = 40 :CONTROL UNIT END 
2098 000020 BSY = 20 “BUSY 
2099 000010 CE = 10 S CHANNEL END 
2100 000004 DE = 4 :DEVICE END 
2101 000002 UCHK = 2 SUNIT CHECK 
2102 000001 UEXP == 1 SUNIT EXCEPTION 
2104 : 
2105 ; 2848 SENSE BYTE (SSENSE) DEFINITION 
2107 200 SCMDRJ = 200 :COMMAND REJECT 
2108 000100 INTREQ = 100 SDEVICE OFF-LINE = INTERVENTION REQ 
2109 040 BUSOUT = 40 ‘BUS OUT == PARITY ERROR DURING CHIS 
2110 000020 EQPCHK = 20 SEQUIPMENT CHECK = PARITY ERROR DUR DATA TRANS 








dD 4 
SEQ 42 

MAINDEC=11=CZDXI-C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 42 
CZOX1C.P11 07-JUN-82 16:21 TRAP CATCHER 

git} ~SBTTL TRAP CATCHER 

siiz ; THE TRAP CATCHER IS LOADED INTO LOW CORE 

2115 

2116 000000 = 

2117 000000 000000 HALT 3FOR MEMORY MANAGEMENT 

2118 000002 000000 HALT 

$18 000176 eREPT 176 3 TRAP CATCHER 

2121 WORD .+2 

2122 HALT 

2123 -ENDR 

2124 000200 -=200 

$12 000200 000137 001000 JMP START sESTABLISH LOC 200 STARTING ADDRESS 
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SEQ 43 
MAINDEC=11=CZDXI=C NEW DX11<8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 43 
CZDXIC.P11  O7=JUN-82 16:21 PROGRAM START-UP SEQUENCES 
.SBTTL PROGRAM START-UP SEQUENCES 
: NORMAL SYSTEM START LOCATION -==1000 
001000 ‘ .21000 
001000 000402 START: BR SYSINT ;NORMAL START UP 
: RESTART ADDRESS == REENTER ALL PARAMETERS == 1002 


001002 005037 013144 START: CLR FTIMFL sRESET FIRST TIME FLAG TO FORCE PARAMETER REENTRY 


SYSTEM GENERALIZED INITIALIZATION PROCEDURE 


R 

: SET-UP STACK POINTER 

3 TRAP/VECTOR AREA 

; SYSTEM GENERATED TRAPS 

; TELETYPE (CONSOLE) VECTORS + STATUS REGISTERS 
; CLEAR ALL LIVE SYSTEM VARIABLES 

: SET UP TELETYPE INPUT / OUTPUT BUFFERS 

s 


YSINT: MOV #SSTACK ,SP :SET UP THE STACK POINTER 


Re 
POPIPIPINININIPINPININININININININININININI PP NPoUNefenonfrnnnn oo 


127 
13 
130 
H 
133 
134 
135 
136 
137 
138 
139 
140 
iH 
128 
144 
145 
146 
147 001006 012706 012650 
148 001012 000005 RESET SRESET ALL DEVICES 
150 
151 
138 ; SET UP CONSOLE VECTORS 
155 001014 012700 000060 . MOV #60,R0 ZSTART OF CONSOLE VECTORS 
156 001020 012720 010756 MOV ATKIN, (RO)* [BEG OF TELE INPUT ISR 
157 001024 012720 000340 MOV #340, (RO)+ [NEW PROC STATUS 
158 001030 012720 011244 MOV #PISR, (RO)+ 7BEG OF TELE PRINT ISR 
159 001034 012710 000340 MOV #340, (RO) [NEW PROC STATUS 
3161 : SET UP MISC TRAPS 
$1e$ 001060 012737 011706 00006 ° MOV #MTO,4 zMEMORY TIME OUT TRAP 
2164 001046 012737 000340 000006 MOV #340.6 
2165 001054 012737 011712 000250 MOV #MMERR 350 ZMEMORY MANAGEMENT ERROR 
2166 062 012737 000340 000252 MOV #340,25 
168 ; CLEAR ALL VARIABLES 
170 001070 012700 012650 : MOV #VSTRT,RO :START OF VARAIBLES 
171 001074 012701 000272 MOV #VEND-VSTRT*#2,R1_ :# OF VARAIBLES TO CLEAR 
17 001100 105020 10$ CLRB ss (ROD + :CLEAR A BYTE 
173 001102 005301 DEC R1 DONE? 
17% 001104 001375 BNE 10$ ZNO, CONTINUE CLEARING 
176 : SET UP TELE BUFFER POINTERS 
178 001106 012737 or 652 012754 ° MOV #TBUF ,TPTR :TELE INPUT POINTER 
179 001114 012737 012756 01306 MOV #PBFS.PFPTR [TELE OUT FETCH PTR 
Siar 001122 012737 012756 01306 MOV #PBFS,PPPTR STELE OUT PUT PTR 
182 : ENABLE TTY 
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SEQ 44 
MAINDEC=-11-CZDXI-C NEW rap -B RESPONDER MACY11 30A(1052) * icantine 16:28 PAGE 44 
CZOXIC.P11 07-JUN-82 16:21 PROGRAM START-UP SEQUENCES 
2183 3 
1 30 052777 000100 BIS #100,aTKS sENABLE TELETYPE INPUT 


011330 

011326 BIS #100, aTPs ENABLE TTY OUTPUT INTERRUPTS 

CLR 3 CLEAR i PROCESSOR STATUS WORD 

TST FTIMEL FIRST TIME THROUGH? (MUST PARAMETERS BE REENTERED?) 
BEQ GE TPRM YES, FORCE USER TO ENTER ALL PARAMETERS 

JMP INIT NO, RESTART TEST USING SAME PARAMETERS 
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SEQ 45 
MAINDEC- Cot~CZ0xI=¢ NEW DX11=8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 45 
CZDXIC.P11 | O7=JUN-82 16:21 TOTAL SYSTEM RESTART (REQUEST NEW RUN TIME PARAMETERS) 
2190 -SBTTL TOTAL SYSTEM RESTART (REQUEST NEW RUN TIME PARAMETERS) 
219 : HERE WE START GATHERING THE TEST INFORMATION 
sea : PRINT START-UP HERALD MESSAGE 
2195 001162 006737 011342 GETPRM: JSR PC, CRLF ZRESTORE THE CARRIAGE 
2196 001166 004137 011504 JSR R1,MESG SPRINT START-UP MESG 
2197 001172 015146 .WORD  STMSG 
2198 001174 004737 011342 JSR PC, CRLF ZRESTORE THE CARRIAGE 
199 001200 004137 011504 JSR R1,MESG 3 
2200 001204 013207 .WORD CTRMSG ::PRINT REV UPDATE NOTE VRG-02=F EB-82 
2202 : 
2203 : GET 0x11 yWniguss ADDRESS COCTAL ADDRESS INPUT) 
2204 : UNIBUS ADDRESSESS 17620 00 = 177000) 
2205 ; DEFAULY UNIBUS ADDRESS 
2207 001206 005037 013144 NEWPRM: CLR :RESET FIRST TIME ppARAME TERS (FORCE ALL PARMS TO BE ENTE 
2208 001212 012737 176200 012530 MOV 4176200 UNADDR :SET UP DEFAULT ADDRESS 
2209 001220 004137 002644 JSR R1, INOCT :GET UNIBUS ADDRESS 
2210 001224 013270 .WORD  UNMSG 
2211 001206 001272 “WORD 5$ ZADDRESS OF DEFAULT ROUTINE 
e212 001230 120427 000015 CMPB sR ACR [WAS LINE DELIMITED PROPERLY? 
2213 001234 001364 BNE NEUPRA =NO, TELL HIM TO REEENTER 
2214 001236 020327 176200 CMP R3,4176200 val ALID UNIBUS ADDRESS? BETWEEN 176200 AND 177000 
2215 001242 002761 BLT NEUPRI GAIN 
2216 001244 020327 177000 CMP R3,4177000 ‘twieus ADDRESS GT 177000? 
2217 001250 0033 : BGT WPRM TYES, ERROR == 
2218 001252 032703 000037 BIT #37,R3 ZMAKE SURE 40 OCTAL WORD BOUNDRY 
2219 001256 001353 BNE NEWPRM ILLEGAL REENTER 
2220 001260 012737 001206 000004 MOV #NEWPRM, 4 SET UP TRAP out TO VALIDATE ADDRESS 
2221 001266 010337 012530 MOV R3, UNADOR SAVE VONIBUS AD DRESS 
2222 001272 005077 011232 5$: CLR @UNADDR 3 VALIDATE THE UNIBUS ADDRESS 
e228 STRAP WILL OCCUR IF INVALID UNIBUS ADDRESS 
2225 ; 
226 ; GET THE DX11 INTERRUPT VECTOR AD RESS (OCTAL ADDRESS INPUT) 
227 : VALID VECTOR ADDRESSES (300 = 770) 
385 ; DEFAULT VECTOR ADDRESS 300 
230 001276 012737 011754 10$: mov TRP,4 ZRESTORE MEMORY TIME-OUT TRAP 
2231 OO 80e tee Breese MOV #300 VECTAD [SET UP DEFAULT VECTOR ADDRESS 
2232 001312 004137 00264 JSR R1, INOCT [GET VECTOR ADDRESS 
2233 001316 013324 .WORD VECTMS 
234 001 0013 “WORD 208 ZADDRESS OF THE DEFAULT ENTRY 
335 001 2 12042 000015 CAP R4 ACR :WAS LINE DELIMITED PROPERLY? 
28 001330 0203 ; 000300 CMP it #300 CHECK VECTOR ADDRESS BETWEEN 300 AND 770 
38 001334 27 BLT 198 :T00 Low GIVE AN ERROR AND REENTER 
9 001 000770 CMP R3,4770 SLT 770? 
40 001 3355 BGT 10$ “VES, REENTER 
3e 601350 1333 — a ta suanb AboRE SS? 
43 b01382 010337 012532 MOV RS VECTAD SSAVE IT 
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SEQ 46 

MAINDEC=11=CZDXI=C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 46 
CZOXIC.P11 | O7=JUN-82 16:21 TOTAL SYSTEM RESTART (REQUEST NEW RUN TIME PARAMETERS) 

2246 ; GET STARTING. AND ENDING DEVICE CHANNEL ADDRESSES (HEX INPUT) 

2247 : VALID DEVICE CHANNEL AuDRES SES (00 = 

2248 : DEFAULT DEVICE CHANNE. ADDRESS 10, io” 

2250 ; NOTE: EITHER ONE OR TWO ADRESSES MAY BE SPECIFIED. IF ONLY ONE 

2251 : ADDRESS IS SPECIFJ£O IT IS USED AS THE STARTING AND 

325 ; ENDING DEVICE AtuRESS. 

2254 001356 012737 000020 012534 30$: mov #20, SDEV :DEFAULT TO HEX ADDRESS 10 

2255 001364 012737 000020 012536 MOV #20, EDE', ; 

2256 001372 004137 0026 JSR R1, INHFX [GET DEVICE ADDRESSES IN HEX 

2257 001376 013372 ~WORD DEVMES 

2258 001400 001472 “WORD NEWPIC ZADDRESS OF THE DEFAULT ROUTINE 

2259 001402 010337 012534 MOV R3,SDLV SSAVE START DEV ADD 

2260 001406 010337 012536 MOV R3.EDEV 

2261 001412 005703 TST R3 :BE SURE POSITIVE 

e262 001414 100760 BMI 20$ 

2263 001416 020327 000377 CMP R3,4377 yAND NOT GREATER THAN 377 == HEX FF 

2264 001422 003355 BGT 20$ : ILLEGAL ENTR 

2265 001424 120427 000054 CMPB RG", [MORE THAN ONE DEV? (COMMA, PARAMETER DELIMETER) 

2266 001430 001015 BNE 30$ 

2267 001432 004737 011616 JSR PC, CHTB :GET ENDING DEVICE 

2268 001436 010337 012536 MOV R3,EDEV : SAVE TENDING ADDRESS 

2269 001442 023737 012534 012536 CMP SDEV, EDEV 1S § T END? 

2270 001450 00334 BGT TERROR 

2271 001452 163703 012534 SUB SDEV,R3 iMORE THAN 8 DEVICES? 

227, 001456 020327 000007 CMP R3,47 

2273 001462 003335 BGT 20$ :YES, ERR 

2274 001464 120427 000015 30$:  CMPB R4,ACR SWAS- DEVICE ADDRESSES DELIMITED PROPERLY? 

2275 001470 001332 BNE 208 3NO, REENTER 

2276 

2277 ; 

2278 : GET TYPE OF 360/370 CHANNEL 

2279 ; M = MULTIPLEXER CHANNEL 

2280 : S = SELECTOR CHANNEL 

2281 : DEFAULT IS 'S*, SELECTOR CHANNEL 

2283 001472 105037 012540 NEWP10: CLRB = CHTYPE s0=M,12=5 

2284 001476 004137 002644 JSR R1, INOCT [GET CHANNEL TYPE 

2285 001502 0134 .WORD  CHTYMS 

2286 001504 00152 “WORD 50: :DEFAULT TO SELECTOR CHANNEL 

2287 001506 120427 000115 re Roam 7M? IPLEXER CHANNEL -~ 

2288 001512 001414 BEQ 608 :YES, MULTIPLEXER CHANNEL 

2289 001514 120427 000123 CMPB RG, #"S 3S? == SELECTOR CHANNEL =~ 

2290 001520 001 BNE NEWP10 S OR M == ERROR 

2291 001522 105237 012540 50$: INCB ‘CHTYPE ‘SELECTOR CHANNEL 

369 001526 000406 BR 60$ [GET MEMORY MANAGEMENT FACILITIES 

ae 

2296 ; MEMORY MANAGEMENT TIME-OUT TRAP HANDLER 

3297 ; USED ONLY FOR PARAMETER ENTRY PROCESS 

299 001530 02 626 55s: CMP (SP)+, (SP)+ :DUMP PC AND psu SAVED BY INTERRUPT 

001532 005037 177776 CLR PSw TURN DOWN PROCESSOR STATUS 
301 001536 011504 JSR R1,MESG [PRINT ‘NO MEM MANAGEMENT AVAIL"* 





1 4 
SEQ 47 
MAINDEC=11=CZDX1=C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 47 
CZDXIC.P11 | O7=JUN-82 16:21 TOTAL SYSTEM RESTART (REQUEST NEW RUN TIME PARAMETERS) 
2302 001542 014174 .WORD PNOMM 
Sao yASK TO HAVE QUESTION REENTERED 
2305 ; 
2306 : DETERMINE IF MEMORY MANAGEMENT IS TO BE USED 
2307 : Y = YES, MEMORY MANAGEMENT TO BE USED 
2308 : N = NO, DO NOT USE MEMORY MANAGEMENT 
2309 ; DEFAULT IS "N*, DO NOT USE MEMORY MANAGEMENT 
2311 001544 105037 012541 60$: CLRB  §MMRESP ;DEFAULT TO NO MEMORY MANAGEMENT 
231e 001550 004137 002644 JSR R1, INOCT [GET MEM MANAGEMENT 
2313 001554 013470 .WORD MMMES 
2314 001556 001612 “WORD 70$ :DEFAULT ROUTINE ADDRESS 
2315 001 120427 000116 CMPB)s«aRG AN 3N? =-DO NOT USE MEMORY MANAGEMENT 
2316 001564 001412 BEQ 70$ 71F EQ, NO MEMORY MANAGEMENT 
2317 001566 120427 000131 CMPBsaRG,#*Y 7¥? =-MEMORY MANAGEMENT TO BE USED 
2318 001572 001364 BNE 60$ TERR 
2319 001574 loses? 012541 INCB MMRESP [MEMORY MANAGEMENT SPEC 
2320 001600 012737 001530 000004 MOV #55$,4 [SET UP TRAP TO TEST MEMORY MANAGEMENT 
$35 001606 005037 177572 CLR MMSRO [CHECK FOR MEMORY MANAGEMENT 
232 3 
2324 : GET BUFFER RELOCATION IN OCTAL ,000°S 
2325 : VALID RELOCATION ADDRESSES (20 = 700) 
2326 : ( THROUGH 7 ) 
tit 3 DEFAULT RELOCATION ADDRESS 20 ---(20000) 
2329 001612 004137 002644 70$: JSR R1, INOCT :GET BUFFER RELOC. IN ,000°S 
2330 001616 013530 .WORD BFREMS 
2331 001 001716 “WORD NEWP20 ZADDRESS OF DEFAULT ROUTINE 
2332 001622 120427 000015 CMPBséRG ACR [WAS LINE DELIMITED PROPERLY? 
2333 001626 001371 BNE 70$ : NTER 
2334 001630 032703 000001 BIT #1,R3 [MUST BE A MULTIPLE OF 2000 
2335 001634 001366 BNE 70$ 
2336 001636 020327 000020 CMP R3,420 
337 001642 002763 BLT 70$ ZILLG BUFFER CONST == LT 20000 
2338 001644 005703 TST R3 SIS NUMBER NEGATIVE? 
2339 001646 100761 BMI 70$ SYES, REENTER ADDRESS 
2340 001650 020327 000734 CMP R3,4734 [1S ADDRESS TOO LARGE? 
2341 001654 0023 BGE 70$ ZYES, REENETER ADDRESS 
2343 001656 105737 012541 TST  MMRESP ZWAS MEMORY MANAGEMENT SPECIFIED? 
2343 001 001412 BEQ 71$ TNO, CHECK FOR 28K 
3346 001664 010304 MOV R3,R4 [PUT VALUE IN WORK REG 
345 001666 04 000600 BIC #600,R4 TIGNORE ADDRESS EXTENSION BITS 
2346 001672 020427 000154 CMP R4, A154 31S IT TOO CLOSE TO 200000 BOUNDARY? 
2347 001676 003407 BLE NEWP20 [BRANCH IF OK 
2348 001700 004137 011504 JSR R1,MESG SPRINT ERROR. CANNOT SET BUFFER SO 
349 3CLOSE TO A 200000 BOUNDARY THAT A CARRY WOULD BE NEEDED TO CHANGE 
330 3 THE EXTENDED ADDRESS BITS. THE DX CANNOT WORK ACROSS 200000 
352 001704 017143 _ .WORD  TOOC ZADDRESS OF TOO CLOSE MESSAGE 
3353 001706 000741 BR 70$ SASK FOR INPUT AGAIN 
Sieg 001710 0203 7 000134 71$: CMP R3,4134 7NO, IS IT TOO CLOSE TO 1/0 PAGE? 
2396 001714 002 BGE 708 [YES, REENTER THE ADDRESS 
2357 001716 010337 012542 NEWP20: MOV R3,BUFREL SSAVE REL CONST 
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MACY11 30A(1052) O7=JUN-82 16:28 PAGE 48 
TOTAL SYSTEM RESTART (REQUEST NEW RUN TIME PARAMETERS) 


GET siete OF TEST TO BE R 
= 2848 (RESPONDER DIAGNOSTIC 


Ds frie 
DEFAULT = 'F*, FRIEND 
$0$: CLRB  =TSTTYP sRESET TEST TYPE 
JSR R1, INOCT [GET TEST TYPE 
“WORD  TESTMS 
“WORD 100$ :DEFAULT TO FRIEND 


MOVE i Lt -FILLCH [FOR 2848 SET FILL CHAR TO EBCDIC SPACE 


CMPB :D? ~-2848 RESPONDER DIAGNOSTIC -- 

BEQ Maly :YES, 848 TEST 

CMPB RGF :F? =e gPRIEND TEST -- 

BNE 90$ ILLEGAL ENT 

CLRB~=s-: FALL FRIEND MODE = == DEFAULT FILL CHAR TO NULL 
100$: INCB  TSTTYP ?SET TEST TO FRIEND 


FRIEND TEST ONLY 
sosineanninets IF ofl nate INPUT / OUTPUT Ath ARE TO BE USED 
« MAINTAIN SEPARATE INPUT / OUTPUT BUFFERS 


meBOe Ge Be Ge Se Se Se 


ue USE SAME BUFFER FOR INPUT AND OUTPUT 
DEF 3 it IS 'N’, NO, USE SAME BUFFER FOR INPUT / OUTPUT 
i10$: CLRB —‘10BUF 30 = NO, 1 = YES 
JSR R1, INOCT [SEPARATE 1/0 BUFFERS? 
~WORD FIOMS 
“WORD INIT : DEFAULT TO NO 
CMPB RG AN IN? <= NO, SAME 1/0 BUFFE 
BEQ INIT HF EQ, USE SAME 1/0 BUFFER “FOR INPUT AND OUTPUT 
CMPB RG AY :¥? =-¥ES, SEPARATE 1/0 BUFFERS=~ 
BNE 116$ < ERROR REQUEST INPUT AGAIN 
INCB = JOBUF TSET SEPARATE 1/0 BUFFER INDICATOR 


FRIEND TEST MODE ONLY 
GET one vor CHARACTER (HEX INPUT REQUIRED) 
Y VALUE WILL BE ACCEPTED 


JSR R1, INHEX zFILL CHARACTER 
-WORD FILLMS 

WORD INIT 
“OVE R3,FILLCH 
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R MACY11 30A(1052) O7=JUN-82 16:28 PAGE 49 
PROGRAM INITIALIZATION 


-SBTTL PROGRAM INITIALIZATION 
INITIALIZATION 


SET UP ALL DX BUFFERS, MEMORY MANAGEMENT REGISTERS 
AND DX REGISTERS 


Ouse Ge Ge Ge Ge Ge Se 


NIT: MOV #MTO,4 :SET UP MEMORY TIME OUT TRAP 
MOV UNADDR,R1 [SET UP DX UNIBUS ADDRESSES 
MOV #DXDS ,R2 
MOV #13. ,R3 313 ADDRESSES (REGISTERS) 
10$: MOV R1, (R2)+ SSET UP UNIBUS ADDRESS 
TST (Ride zINCR TO NEXT ox REGISTER 
BNE 10$ Ser UP NEXT REGISTER 
: SET UP DX VECTOR ADDRESS 
: MOV VECTAD 
MOV #DXISR. tate ;TRAP TO DX ISR 
MOV #340, (R1) [SET UP PROC STATUS AT INTER. 


COMPUTE ADDRESSES OF DX BUFFERS 
CURRENTLY THIS INCLUDES DATA AREA, TUMBLE TABLE, AND SPW TABLE 


TST BUFREL sWAS BUFFER RELOC SPECIFIED? 
BNE 20$ ZYES 
MOV #20 BUFREL NO, MAKE BUFFERS START AT 20000 


208: MOV BUFREL , PBUFA SAVE PHYSICAL ADDR te 


MOV BUF REL , VBUFA SAVE VIRTUAL ADDRESS 
TST8 MMRE SP WAS MEMORY MANAGEMENT SPECIF iED? 
BEQ 40$ 2NO, SET UP BUFFERS 


MEMORY MANAGEMENT WAS SPECIFIED 
SET uP Kennel REGISTERS 


PROGRAM 
isi7ee = BUFFERS (VIRTUAL ADDRESSES) 
80000-17 7777 = UNIBUS ADDRESSES 
ONLY I SPACE REGISTERS WILL BE USED 


MOV #KISARO,R4 : 1~$PACE PAR 
MOV #KISDRO.RS 31-5 PDR 
CLR (RG) + “VA ei 777 = PA 0-17777 
MOV #77606,(R5)* 264 BLOCKS, UNL IMI TED ACCESS 
MOV A,R3 [PHYSICAL ADDR * 
ASL 
ALOR 

30$: MOV RB, (P4)+ T UP PA FOR VA 20000-157777 
MOV #77406, (RS)+ BLOCKS, UNLIMITED ACCESS 
ADD #200. R {INCREMENT TO NEXT 4K BANK 
CMP Re gk 1SAR7 L BUFFER ADDRESSES SET UP? 
BNE NOS SET UP NEXT REGISTER 
MOV 77600 (R4) set UP UNIBUS ADDRESS REGISTER 
MOV #77406, (RS) BLOCKS, UNLIMITED ACCESS 
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SEQ 50 
MAINDEC=11=CZDXI=C NEW DX11-B8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 50 
CZDXIC.P11 O7=JUN-82 16:21 PROGRAM INITIALIZATION 
2460 9022 4 012737 000001 177572 MOV #1,MMSRO sENABLE MEMORY MANAGEMENT 
2461 692232 012737 000020 013114 MOV #20, VBUFA :TO 8K BANK OR 20000 AND UP 
te: : START SETTING UP SPW T 
2464 : 1 ENTRY PER DEVICE (256 DEVICES) 
2465 ; ENTRY DESCRIPTION 
2466 : “FOR vA ID DEVICE NUMBERS 
e467 : BIT s] 15-8 = OFFSET TO DST TABLE (PHYSICAL ADDR) 
° “VU = 
2469 : =--=FOR INVALID DEVICE NUMBERS 
2470 : BITS 15-8 = 
e671 : 7=0 = 2 == UNIT CHECK 
2473 : THIS TABLE IS REFERENCED ON EACH 360 ACTION TO DETERMINE 
2474 : IF DEVICE NUMBER IS VALID. THIS AUTOMATICALLY DONE 
3475 : BY THE DX CONTROL TNit 
2477 002240 013705 013112 ios MOV PBUFA,RS ZCOMPUTE OFFSET PHYSICALLY 
2478 002244 § R5 7*1000 
2479 002246 105005 CLRB RS 
2480 002250 ASL RS 
2481 002252 010577 010226 MOV R5,aDXOS ZOFFSET TO SPW TABLE 
2482 002256 013701 013114 MOV VBUFA,R1 ZCOMPUTE VIRT ADDR OF SPW TABLE 
2483 002262 000301 SWAB RT 7*1000 
2484 002264 105001 CLRB sR 
2485 002266 006 ASL R1 
2486 002270 010137 013126 MOV R1,STSPW :SAVE START OF spy TABLE 
002274 010137 013116 MOV R1.PHYOFF [COMPUTE THE OF FSET FOR PHYSICAL ADDRESSES 
2488 002 160537 013116 SUB RS. PHYOFF : VERSES VIRTUAL AD DRESS = MEM MANAGEMENT 
2489 002 062705 003000 ADD #3000,R5 OMPUTE THE OFFSET TO THE DST TABLE 
24 902310 010537 013130 MOV R5,DSTOFF s CAVE OFFSET TO DST TABLE 
2491 002314 005000 CLR DEV i START AT DEVICE 3 
249 002316 120037 012534 50S. CMPB DEV. SDEV [1S DEVICE NUMBER VALID 
2493 002322 002405 BLT 60$ NO 
49% 902 4 120037 012536 CMPB sé EDEV 
495 002330 003002 BGT NO 
246% 002332 010521 MOV RS, (R1)¢ TVALID DEVICE DST OFFSET TO ENTRY 
2497 002334 000402 BR 
2698 002336 012721 000002 60$: MOV #UCHK, (R1)+ p INVALID DEV # UNIT CHECK TO ENTRY 
499 002342 005200 70$: INC DEV :TO NEXT DEVICE 
2500 002344 020027 000400 CMP DEV, #256. ALL BEVICES DONE? 
2501 002350 001362 BNE 50$ [NO, SET UP SPW FOR NEXT DEVICE 
<508 ; NEXT SET UP TUMBLE TABLE AND DUPLICATE TUMBLE TABLE 
505 002352 010137 013074 MOV R1, TTADDR ;TUMBLE TABLE ADDRESS 
506 3 010137 13072 MOV R1_TTPTR STUMBLE TABLE FETCH POINTER 
50 12702 MOV #TTSIZER2 *CLEAR UT + DUPLICATE T/T (WORD POINTER) 
508 005 80$: CLR (R1)+ :CLEAR NEXT WORD 
509 3 005 2 DEC Roe 
310 00137 BNE 8 :NO, CLEAR NEXT WORD 
312 : SET UP DST TABLE 
1 : THe DST TABLE IS USED TO VERIFY COMMANDS FROM THE 
14 : . THIS 1S DONE BY T 
515 ; THE DST TABLE 1S A BYTE TABLE, 1 BYTE PER POSSIBLE 
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Seca | NEW DX11-8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 51 
O7-JUN-82 16:21 PROGRAM INITIALIZATION 


SEQ 51 
P11 
oe © 255. THE ENTRY IN THE DST TABLE IS 


SENT 0 TO THE 
THE FOLLOWING ARE A LIST OF VALID COMMANDS AND RESPONSES 
COMMAND RE SPONSE weet iyo IPTION 


; 0 T 1/0 

; 1 0 WRITE BUFFER 

3 § READ MANUAL I 

3 CE!DE 

: 4 SENSE COMMAND 

: § 0 WRITE LINE ADDRESS 

; a 0 READ FULL BUFFER 

: 0 ERASE COMMAND 

: 12 0 SHORT READ MANUAL INPUT 
; ALL OTHER COMMANDS ARE RESPONDED WITH UNIT CHECK 

002374 012702 000013 MOV #13,R2 ZNUMBER OF VALID 360 COMMANDS 

002400 012703 002622 MOV #VCMDTB,R3 [VALID COMMAND TABLE 

002404 112327 INIT10: MOVB (R3)#,(R1)¢ :70 DST TABLE 

2406 005302 DEC R 

002410 00137 BNE INIT10 ?NO, hove IN NEXT RESPONSE 

002412 012702 000365 MOV #245. ,R2 [MOVE UNIT CHECK TO INVALID ENTRIES 

002416 112721 000002 100$: MOVB #UCHK.(R1)+ 

002422 005302 DEC R2 

002424 001374 BNE 100$ 

; COMPUTE MAX NUMBER OF DEVICES 

002426 013703 012536 MOV EDEV.R 

0024382 163703 012534 SUB SDEV.R 

002436 005203 INC R3 ZSTART AT DEVICE NUMERO UNO 

002440 110337 013101 MOVB  R3, MAXDEV 
444 013737 012534 013122 MOV SDEV, DEVCON ;SET UP DEVICE NUMBER -1 

002452 005337 013122 DEC DEVCON 

002456 012737 000001 013110 MOV #1, SELDEV ZINIT DEVICE NUMBER FOR MUX AND SEL EXECUTORS 

; NOTE == THE DEVICE BUFFERS ARE USED BY THE SOFTWARE ONLY TO CONTAIN 
; POINTERS AND INPUT AND OUTPUT DATA FOR EACH DEVICE; 
: START SETTING UP DEVICE BUFFERS 

002464 010137 013076 mov R1,SDEVTB : SAVE | START OF DEVICE BUFFERS 

002470 005 CLR DEV :DEV “o. 

002472 91010 120$: MOV R1,DTAB SAVE ADDR OF DEVICE STATUS TABLE 
476 1270 000420 MOV #272. ,R2 SCLEAR MDEVICE STATUS TABLE + INPUT BUFFER 
209 908 come ER a :DONE? 

002504 00137 BNE 122$ NO, CLEAR NEXT WORD 

00 1036 MOV DTAB, SINBF(DTAB)” 

51 76 76 000006 ADD #62..SINBF(DTAB) s;COMPUTE ADDRESS OF INPUT BUFFER 
5 36 MOV DTAB. SOUTB(DTAB) 

524 ? 1 000010 ADD #544. ,SOUTB(DTAB) ;COMPUTE ADDRESS OF OUTPUT BUFFER 
5 1 MOV *1SP8) R2 
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SEQ 52 
MAINDEC=11=CZDXI=C NEW bx11<8 RESPONDER MACY11 30A(1052) O7=JUN=82 16:28 PAGE 52 
CZDXIC.P11 | O7=JUN-82 16:21 PROGRAM INITIALIZATION 
3 B & 113721 012546 125$: MOVB FILLCH,(R1)*  ;FILL OUTPUT/DISPLAY BUFFER 
57 00 36 005302 DEC Rg + DONE? 
002544 001374 BNE 125$ NO 
gare 002546 005200 INC DEV SHAVE ALL DEVICE BUFFERS BEEN SET UP? 
2576 002550 120037 013101 CMPB DEV MAXDEV 
2577 0025 001 346 BNE 1208 :NO, SET UP NEXT DEVICE BUFFERS 
2578 002556 013705 013112 MOV PBUFA,RS 'SET UP EXTENDED ADDRESS BITS 
2579 002 05 ASR R5 
580 002564 05 ASR R5 
581 002566 006205 ASR R5 
582 002570 05 ASR R5 
2583 002572 042705 177747 BIC 4377767 RS :SAVE ONLY H.0. 2 BITS 
2584 002576 010537 013124 MOV R5,XADDR TSAVE EXTENDED ADDRESS ITs FOR DX CONTROL REG 
3585 002602 012737 000001 013144 MOV #1 FTIMFL ZSET FIRST TIME THROUGH FLAG 
2587 : INITIALIZATION COMPLETE 
3588 ; TELL OPERATOR WE ARE ALREADY TO GO 
2590 : NOTE: AT THIS POINT THE DX HAS NOT BEEN STARTED 
25% : AND THE OPERATOR must TYPE R (RUN COMMAND) 
39 ; TO THE SHOW UNDER 
| 259% 002019 004137 011504 JSR R1,MESG ZTELL OPERATOR WE ARE READY TO GO 
2595 002614 014316 “WORD RNMESG 
2596 202616 000137 002732 JMP EXEC 7GET THE SHOW ON THE ROAD 
2598 3 VALID COMMAND TABLE 
2600 002622 000 VCMDTB: .BYTE 0 70 = TEST 1/0 
2601 002 000 “BYTE 0 $1 = WRITE BUFFER 
002624 000 YTE i = READ INPUT 
$8 5 014 “BYTE CE!DE 73 = NOP 
2604 000 “BYTE :4 = SENSE C 
2605 00 900 “BYTE 0 [5 = WRITE LINE ADDRESS 
2606 6 “BYTE 0 2 = READ FULL BUF 
2607 002631 000 *BYT 77 = ERASE C 
2608 0026 002 “BYTE UCHK 710 = INVALID 
2609 00263 00 “BYTE UCHK [11 = INVALID 
2610 6 000 “BYTE 0 312 = SHORT READ MANUAL INPUT 
2611 002636 “EVEN 
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MACY11 30A(1052) O7=JUN-82 16:28 PAGE 53 
INITIALIZATION PARAMETER INPUT AND CONVERSION ROUTINES 





«SBTTL INITIALIZATION PARAMETER INPUT AND CONVERSION ROUTINES 
INHEX == PRINT MESSAGE, WAIT FOR INPUT, GET IT AND CONVERT THE HEX TO BINARY 


eo pee 


«WORD ADBRESS "OF MESSAGE TO BE PRINTED 
“WORD ae TOR OF DEFAULT ROUTINE 
ne. = o NEXT CHAR 1 ee 
RS = BINARY aS a 
a4 = (BITS 0-7) FIRST NON-OCTAL CHARACTER 
= NUMBER OF CHARCTERS CONVERTED 


bate Ge Ge Ge Se Ge Ge Fe Be Se Se Se Se 


NHEX: MOV #CHTB,RS ZMOVE ADDRESS OF CONVERSION ROUTINE TO RS 
BR INRS 
: INOCT == PRINT MESSAGE, WAIT FOR INPUT, + GET IT AND CONVERT OCTALL TO BINARY 
: CALLING SE SEQUENCE 
: WORD aptrése OF MESSAGE TO BE PRINTED 
: “WORD ADDRESS OF THE DEFAULT ROUTINE 
: min Re = NEXT CHAR PTR 
; = BINARY RESULT 
: Rs = (BITS 0-7) FIRST NON-OCTAL CHARACTER 
F = NUMBER OF CHARS CONVERTED 
INOCT: MOV #COTB,RS :SET UP ADDRESS OF THE CONVERSION ROUTINE 
INRS: MOV (R1)+.,R2 [GET ADDRESS OF THE MESSAGE 
10$: JSR PC ,PRMESG :PRINT THE DESIRED MESSAGE 
CLAB  =TCMACT ;RESET ACTIVE FLAG 
CLRB = TCMDAB 3RESET ABORT FLA 
30$ TSTB = TCMDAB 
BNE 10 VES, REASK QUESTION 
ste TCMACT WAS "ENTRY COMPLETED? 
MOV #TBUF .R2 it UP ADDRESS OF BEG OF INPUT BUFFER 
JSR PC, ars ONVERT INPUT TO BINARY 
TST R5 ‘TOOK FOR DEFAULT RESP == C/R 
BNE 40 [NOT DEFAULT TAKE NORMAL RETURN 
C R4.ACR SILLEGAL CHAR MUST A 
BNE SITS NOT A DEFA 
NOV (R1) RI T===TAKE THE DEFAULT RETURN 
TST (R1)+* ZINCR FOR NORMAL RETURN 
RTS R1 


¢ 5 


SEQ 54 
MAINDEC=11=CZDXI=C NEW DX11-8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 54 
CZDXIC.P11 | O7=JUN-82 16:21 BACKGROUND TELETYPE COMMAND DISPATCHER (EXECUTIVE) 
2660 .SBTTL BACKGROUND TELETYPE COMMAND DISPATCHER (EXECUTIVE) 
662 : SYSTEM EXECUTIVE/BACKGROUND 
2664 : THE SYS EXEC EXECUTES THE SYSTEM TELETYPE COMMANDS 
2666 : ENTRY TO THE TELETYPE COMMAND EXEC IS PERFORMED 
2667 : BY EXECUTING A JUMP TO EXEC. THE CALL 
2668 : SHOULD NOT EXPECT ANY REGISTERS T0 BE SAVED OR CONTROL 
2669 : RTS PCED TO HIS PROGF 
2670 : ENTRY TO THE TELETYPE COMMAND EXEC CAUSES THE STACK POINTER 
2671 : TO BE RESET: THUS, MOST COMMAND HANDLERS WILL NOT 
2672 F WITH LEAVING UN’ POPPED'' DATA ON THE CFA 
2674 002732 737 011342 EXEC: JSR PC, CRLF zPRINT CR/LF 
2675 002736 012702 000052 MOV #'e eR 
2676 002742 737 011360 JSR PC ,PRINT2 PRINT * == DENOTE COMMAND MODE 
2677 002746 012706 012650 MOV #SSTACK, SP :RE-ESTABLISH PUSH STACK 
2678 002752 105037 013065 CLRB —s«TCMACT [CLEAR TELE CMD ACT 
2679 002756 105037 013066 CLRB -TCMDAB *CLEAR TELE CMD ABORT 
002762 105037 013067 CLRB —sLINECT SRESET LINE COUNTER 
2681 002766 105737 013104 10$:  TSTB  DXABFL [DID THE DX ABORT AN OPERATION ? 
2682 002772 001402 BEQ 20$ :NO, CONTINUE 
2683 002774 000137 003352 JMP STOPDX [YES IT DID, PRINT THE DX REGISTERS 
2684 003000 105737 013065 20$:  TSTB  TCMACT [IS THERE A COMMAND TO EXECUTE 
2685 003004 001001 BNE 30$ SYES, EXECUTE IT 
2686 003006 000767 BR 10$ [NO, WAIT AGAIN IF NOTHING TO DO 
2688 : THERE IS A TELETYPE COMMAND TO BE EXECUTED 
2690 003010 012702 012652 $0$: mov #TBUF ,R2 ;SET UP PTR TO START OF TELE BUFFER 
2691 003014 112203 MOVB = (R2)+._R3 [GET COMMAND IDENTIFIER 
2692 003016 042703 177400 BIC #177460,R3 [SAVE L.O. BYTE 
2693 003022 012704 003056 MOV #TCMDTB.RG [SET UP PTR TO COMMAND TABLE | 
269% 003026 020324 40$: CMP R3, (R4)+ :DOES COMMAND MATCH TABLE ENT 
2695 003030 001411 BEQ EXECMD [YES, WE GOT A MATCH = START EXECUTION 
269 003032 022404 CMP (R46) +,R4 ZINCR TO NEXT COMMAND 
2697 003034 005714 TST (R4) TEND OF T 
2698 003036 001373 BNE 40$ [NO, TEST NEXT ENTRY 
2700 ; COMMAND ERROR = NOTIFY OPERATOR WITH ? AND "BELL" 
2702 0030460 012702 137607 CERR: MOV #137607,R2 :PRINT ? AND “BELL"’ 
2703 003044 004737 011360 JSR PC PRINT2 
704 003050 000137 002732 MP EXEC ;RETURN TO EXEC 
$706 : EXECUTE COMMAND 
3708 003054 000134 EXECMD: JMP a(R4)+ ZEXECUTE COMMAND 
ors : TELETYPE COMMAND TABLE 
2712 003056 000101 TCMDTB: .WORD ‘A ZA = ACCESS 
2713 003060 004062 “WORD ACCESS 
2714 003062 000104 “WORD 'D 3D = DUMP 


2715 003064 003444 -WORD DUMP 
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= ENABLE DEVICE 
= FILL 

= HELP COMMAND 
INPUT 

= KILL 

RUN 

STOP 


END OF TABLE 
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BACKGROUND == RUN C 


10$: 


208: 


30$: 


SEQ 56 
MACY11 30A(1052), 07=JUN-82 16:28 PAGE 56 
.SBTTL BACKGROUND == RUN COMMAND 
R = RUN COMMAND 
THE RUN COMMAND READIES THE DX AND SPECIFIED DEVICE 
BUFFERS TO BEGIN OPERATION. THE RUN COMMAND MUST 
BE EXECUTED BEFORE ANY ACTION WILL BE PERFORMED 
OVER THE DX. 
BIT MDXONLN,@DXCS 1S DX ENABLED? 
BNE CERR YES 
CLR aDxcs {INITIALIZE THE DX 
INC apxcs T GO 
MOV #1,DEV SSTART CLEARING DEVICE TABLES 
JSR PC. CDEVST SCLEAR DEV STATUS TABLE 
JSR PC. CSPWST “RESET THE APPR SPW STATUS ENTRY FOR THE DEVICE 
CLRB  SSENSE(DTAB) =; CLEAR SENSE BYTE 
CLRB  SRDRQ(DTAB) [CLEAR THE READ REQUEST 
CLR SMINS (DTAB) [CLEAR THE START OF MANUAL INPUT 
INC DEV SINCR TO NEXT DEVICE 
CMPB «DEV, MAXDEV TARE WE DONE 
BLE 10$ ZNO, DO NEXT DEVICE 
CLRB = XACT [CLEAR DX ACTIVE FLAG 
CLRB = CMDCHF [CLEAR COMMAND CHAINING FLAG 
CLRB = DXABFL CL LEAR DX ABORT FLAG 
MOV TTADDR,R1 [GET THE TUMBLE TABLE ADDRESS 
MOV R1,TTPTR SRESET THE SOFTWARE T/T POINTER 
MOV #TTSIZE RZ :SET UP CLEAR CONSTANT (WORD COUNTER) 
CLR (R1)¢ ‘CLEAR T/T AND DUP T/T 
DEC 2 TARE WE DONE? 
BNE 20$ [NO, KEEP ON CLEARING 
MOV #1,MDEV ZINIT THE DEVICE NUMBER FOR MUX 
: AND SEL EXECUTOR ROUTINES 
BIS XADDR, @DXC$ ZSET UP THE EXTENDED ADDRESS BITS 
BIS WBSYEN,@DXCS | :SEL CHANNEL = SET BUSY ENABLE 
BIS #DXENB!DXONLN, »@DkCS ;ENABLE THE DX 
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CKGROUND == STOP C 
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«SBTTL BACKGROUND -- STOP COMMAND 


S = STOP DX COMMAND 
STOP DISBLES THE DX IMMEDIATELY, AFTER THE NEXT CHIS 
AFTER THE NEXT DATA TRANSFER COMPLETION, OR AFTER THE 
NEXT ENDING SEQUENCE 


THE ee vy FORMATS ARE ALLOWED 
S(C/R - STOP DX IMMEDIATELY 
STtCRD “= STOP DX AFTER NEXT INITIAL SELECTION SEQUENCE 
SD(C/R) == STOP DX AFTER NEXT DATA TRANSFER IS COMPLETED 
SE(C/R) == STOP DX AFTER NEXT ENDING SEQUENCE IS RECEIVED 
SP(C/R) == STOP ON NEXT PARITY EROR RECEIVED FROM CHANNEL 


STOP WAITS UNTIL THE SPECIFIED CONDITION IS MET. THEN, THE 
DX IS DISABLED AND THE DX STATUS REGISTERS ARE 
DUMPED ON THE CONSOLE TELETYPE. 


RUN COMMAND (R) MUST BE og A eins ANY MORE 
ACTIONS WILL BE PERFORMED ON THE D 


TOP: MOVB (R2),R4 :GET THE TYPE OF STOP INDICATED 
CMPB—sRG ACR : IMMEDIATELY? 
BEQ STOPDX ZYES, DISABLE DX AND PRINT REGISTERS 
CMPBsRG#''D :D = AFTER NEXT DATA TRANSFER? 
BEQ 10$ YES, SET STOP FLAG 
CMPBsoaRG WE sE = AFTER THE NEXT ENDING SEQUENCE 
BEQ 10$ YES, SET STOP FL 
CMPBsaRG,#*I :1 = AFTER THE CHIS SEQUENCE 
BEQ 10$ SYES, SET STOP FLAG 
CMPBsRG#'P [=P = STOP ON PARITY ERROR?? 
BEQ 10$ :YES, SET STOP FLAG 
JMP CERR ILLEGAL FORMAT == GIVE ERROR 
10$:  MOVB R4,DXSTPF SSET THE STOP FLAG 
: WHEN THE STOP CONDITION IS SATISIFIED, 
: THE DX ISR WILL ABORT ALL DX ACTIVITY AND 
: SET A FLAG CAUSING ALL DX REGISTERS TO BE 
: DUMPED BY “’STOPDX'', BELOW 
: THE STOP CONDITION WILL REMAIN IN EFFECT 
; UNTIL IT IS SATISIFIED OR ANOTHER REQUEST 
: SUPERCEDES IT. 
JMP EXEC ZRETURN TO THE EXEC 
; STOP THE DX AND PRINT THE REGISTERS 
; NOTE THE PRINT OUTS WILL BE IN OCTAL 
STOPDX: BIC #DXENB,aDXCS DISABLE THE Dx 
JSR PC, CRLF START AT NEW LINE 
JSR R1,MESG ‘PRINT ACURRENT DEVICE == 
.WORD  STPMES 
CDEV,R2 ZCONVERT AND PRINT THE CURRENT 
JSR PC HDMP [DEVICE NUMB 
MOV #13. ,R3 ‘PRINT THE Net DX REGISTERS IN OCTAL 


SEQ 57 
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SEQ 58 

MAINDEC=11-CZDX1-C NEW DX11-8 cemibraneg “ MACY11 engl ee 16:28 PAGE 58 
CZOX1C.P11 07-JUN-82 16:21 BACKGROUND == STOP C 

2824 003406 012701 012476 MOV #DXDS,R1 sSTARTING POINT 

2825 003412 013102 10$: MOV @(R1)+,R2 2GET THE REGISTER CONTENTS 

2826 003414 004737 004702 JSR PC ,OCTOMP sPRINT IN OCTAL 

2827 003420 005303 DEC R3 sARE WE DONE 

2828 003422 001373 BNE 10$ 3NO, DUMP NEXT WORD 

2829 003424 105037 013104 CLRB DXABFL :YES, RESET THE ABORT FLAG 

2830 003430 005077 007046 CLR aDxcs sRESET THE DX 

2831 003434 005277 007042 INC aDxcs 


2832 003440 000137 002732 JMP EXEC zAND RETURN TO THE EXEC 


| H 
‘ SEQ 59 


MAINDEC=11=CZDXI=C NEW DX11<B RESPONDER MACY11 304(1052) 07-JUN-82 16:28 PAGE 59 

CZDXIC.P11 O7=JUN-82 16:21 BACKGROUND == DUMP COMMAND 
th .SBTTL BACKGROUND == DUMP COMMAND 
2855 : DUMP COMMAND 
2837 : THE DUMP COMMAND DUMPS THE SPECIFIED DATA AREA ON THE 
3838 : CONSOLE TELETYPE IN THE SPECIFIED FORMAT. 
2840 : THE FOLLOWING COMMAND SYNTAXES ARE AVAILABLE: 
2841 : OTT, DUMP DUPLICATE TUMBLE TABLE IN CODE x 
2842 : DIN. . W DUMP INPUT {BUFFER FOR DEVICE YY IN CODE x 
2843 : DOT.Xx DUMP OUTPUT BUFFER FOR DEVICE YY IN CODE Xx " 
2844 : Dsséegs v EEEEEE.X DUMP BET BETWEEN THE OCTAL LIMITS GIVEN 
2846 : WHERE: X = A-ASCII, E- EBCDIC, H-HEX, O-OCTAL 
sees 3 YY = THE DEVICE ADDRESS IN HEX 
2849 : THE DUMPS ARE PERFORMED IN A COLUMN FASHION FOR 
2850 : OCTAL AND HEX MODES (ONE WORD PER LINE) AND IN A LINE 
2851 : FASHION FOR ASCII AND EBCDIC MODES (60 CHARACTERS” PER LINE) 
2853 003444 004737 005062 DUMP: JSR PC,GLIMIT :GET BUFFER LIMITS 
2854 003450 112204 MOVB = (R2)+,R4 :GET DUMP MODE A/E/0 
2855 003452 012705 004650 MOV aASCDAP, RS SSET UP FOR ASCII DUMP 
2856 003456 120427 000101 CMPB tIS IT ASCII? 
2857 003462 001421 BEQ T08. SYES, START DUMP 
2858 003464 012705 004604 MOV #EBCDMP,RS [SET UP FOR EBCDIC DUMP 
2859 003470 120427 000105 CMPB RG, #'E [1S IT EBCDIC? 
2860 003474 001414 BEQ 10 TYES, CONTINUE DUMP 
2861 003476 012705 004766 MOV #HEXDMP RS :SET UP FOR HEX DUMP 
2 003502 120427 000110 CMPB a4, #'H : IS IT HEX? 
2863 003506 001407 BEQ 10 ZYES, CONTINUE DUMP 
2864 003510 012705 004702 MOV #OCTDMP,RS ‘SET UP FOR OCTAL DUMP 
2865 003514 120427 000117 CMPBsaR4G, #0 71S IT 
2866 003520 001402 BEQ 10$ ZYES, CONTINUE DUMP 
2867 003522 000137 003040 JMP CERR TILLEGAL ENTRY <= ERROR 
2 003526 010537 013136 10$: MOV RS ,.DMPADR i SAV E ADDRESS OF DUMP ROUTINE 
2869 003532 005700 TST RO WAS THIS A TUMBLE TABLE DUMP? 
2870 003534 001043 BNE DTUMTB :YES, DUMP THE TUMBLE TABLE 
2871 003536 112204 MOVB = (R2)+,R4 [WAS A DEV # SPECIFIED 
2872 003540 120427 000054 CMPB RGA. 71S NEXT POSITION A COMMA 
2873 003544 001014 BNE 50 [NO, DUMP GIVEN LIMITS 
287% 003546 004737 005314 JSR PC, GDEV GET OuE DEVICE NUMBER -- IN HEX 
oar ; COMPUTE RELOCATION CONSTANT FOR DEVICE 
2878 003552 005004 CLR R4 :RELOCATION CONSTANT 
2879 003554 00530 30$: DEC R3 DONE? 
2880 003556 001403 BEQ 408 TYES, ADD TO START * END ADDRESSES 
2881 003560 062704 002000 ADD #2000,R4 [TO NEXT DEVICE TABLES 
2882 003564 000773 BR 30$ 
2883 003566 060437 013132 40$: ADD R4, SADDR ZADD RELOCAT TO START ADDRESS 
2884 003572 060437 013134 ADD R4.EADDR [ADD RELOCAT TO END ADDRESS 
2885 003576 017702 007330 50$: MOV @SADDR,R2 'GET WORD 

3602 004777 0607330 JSR C,a@DMPADR :CONVERT AND DUMP IT 

2887 003606 10 737 013103 608 STB PCT 





a ie, HN. =. CSE Oe Bs ey 
SEQ 60 


MAINDEC=11=CZDXI=C NEW 0X11-8 RESPONDER MACY11 30A(1052) p07 -sUN-82 16:28 PAGE 60 
CZDXIC.P11 | O7=JUN-82 16:21 BACKGROUND == DUMP C 
2889 003614 062737 000002 013132 ADD #2,SADDR ZINCR TO NEXT WORD 
2890 003622 023737 013132 013134 CMP SADDR, ,EADDR [DUMP DONE 
2891 003630 003003 BGT 0$ YES, EXIT 
2892 003632 105737 013066 TST8 TCMDAB [COMMAND ABORT? 
2893 003636 001757 BEQ 50$ ‘NO, PRINT NEXT WORD 
2894 003640 000137 002732 70$: § JMP EXEC TYES, RETURN TO EXEC 
2896 
$898 
2899 : DUMP THE DUPLICATE TUMBLE TABLE IN REVERSE SEQUENCE 
2901 4 012700 DTUMTB: MOV #TTSIZE/2,R0 | :SET UP COUNTER TO DUMP ENTIRE TUMBLE TABLE 
2902 003650 017702 007256 5$: MOV @SADDR,R2 GET STARTING ADDR ESS 
2903 003654 004777 007256 JSR PC. @DMPADR T THe CONTENTS 
2904 003660 105737 013103 10$:  TSTB  PCTR its paint ¢ COMPLE TE? 
2905 003664 001375 BNE 10$ TILL DONE 
00 032737 000777 013132 BIT #TTSIZE=1,SADDR ctHece FOR WRAP AROUND 
2907 003674 001003 BNE 0$ 
2908 003676 062737 001000 013132 ADD ATTSIZE,SADDR ;WRAP AROUND TO TOP OF ayABte 
2909 003704 162737 000002 013132 208: SUB #2, SADDR SDECREMENT TO NEXT ENT 
2910 003712 005300 DEC RO ‘HAS ENTIRE TUMBLE FABLE BEEN DUMPED? 
2911 003714 001403 BEQ 30$ TYES, EXIT TO THE EXEC 
2912 003716 105737 013066 TSTB  TCMDAB : ARE WE TO ? 
2913 003722 001752 BEQ 5$ KEEP ON DUMPING 
2914 003724 000137 002732 30$:  JMP EXEC ve, BACK TO THE EXEC 
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MACY11 opi a ee 16:28 PAGE 61 
BACKGROUND == FILL C 


-SBTTL BACKGROUND == FILL COMMAND 
FILL COMMAND 


THE FILL COMMAND LOADS THE SPECIFIED BYTE 
INTO THE GIVEN DATA AREA. 


WHERE: XX IS THE FILL CHARACTER IN HEX 
YY IS THE DEVICE ADDRESS IN HEX 


“Wits Se Se Ge Be Se Be Be Ge Se Be Be Oe 


ILL: JSR PC,GLIMIT :GET BUFFER LIMITS 
JSR PC; CHTB GET THE’ FILL CHARCTER 
MOVB=sR3.. FILECH TSAVE FILL CHAR 
JSR PC. GDEV [GET THE DEVICE ADDRESS 

: COMPUTE RELOCATION FOR DEVICE 

. CLR R4 

10$: DEC R3 DONE? 
BEQ 208 [YES, ADD TO START AND END ADDR 


ADD #2000,R4 
BR 10$ 


208: ADD R4,SADDR 
ADD R4,EADDR 
MOV SADDR,,R1 


zADD RELOC CONST TO START 


; FILL BUFFER WITH SPECIFIED CAHARCTER 

$0$: MOVB  FILLCH,(R1)+¢ :FILL CHARACTER 
CMP R1, EADDR 
BLOS 30% :NOPE. FILL NEXT CHAR 
JMP EXEC SDONE, RETURN TO EXEC 


THE FOLLOWING SYNTAXES w) AVAILABLE FOR THE FILL COMMAND: 
FIN,XX,YY FILL INPUT BUFFER FOR DEVICE YY WITH Xx 
FOT,XX,YY FILL OUTPUT BUFFER FOR DEVICE YY WITH Xx 


ADD RELOC CONST TO END ADDR 


SEQ 61 


K 5 





SEQ 62 

MAINDEC=11=CZDXI=C NEW 0X11<B RESPONDER MACY11 30A(1052) O7-JUN-82 16:28 PAGE 62 
CZDXIC.P11  O7=JUN-82 16:21 BACKGROUND == HELP 

2951 ~SBTTL BACKGROUND == HELP COMMAND 

295 : THE HELP COMMAND PROVIDES THE OPERATOR WITH A SYNOPSIS OF 

2954 ; COMMANDS WHICH MAY BE USED FOR OPERATING THIS SYSTEM. 

2956 : THE SYNTAX FOR THE HELP COMMAND IS: 

2958 : 

2959 004016 012701 014372 HELP: MOV #HELPMS ,R1 zSET UP ADDRESS OF HELP MESSAGE 

2960 004022 012702 002551 MOV #HELPLN.R2 ‘LENGTH OF HELP MESSAGE 

2962 : START OUTPUTTING THE HELP MESSAGE UNDER OUR CONTROL 

296 ; SO THE COMMAND MAY BE ABORTED QUICKLY. 

2965 004026 112100 10$: MOVB (R1)+,RO :GET BYTE TO OUTPUT 

2966 004030 123727 013103 000004 15$:  CMPB  PCTR,#4 [MORE THEN FOUR CHARACTERS IN OUTPUT BUFFER?? 

2967 004036 003374 BGT 15$ : YES, WAIT TIL DOWN A LITTLE 

2968 004040 004737 011400 JSR PC, PCHAR PRINT IT ON C ONSOLE 

2969 004044 105737 013066 TSTB  TCMDAB ;HAS OPERATOR INDICATED A DESIRE TO STOP? 

2970 004050 001002 BNE 20$ YES, ABORT HELP MESSA 

2971 004052 005302 DEC R2 SHAS ENTIRE. MESSAGE BEEN” QUTPUTTED?? 

2972 004054 001364 BNE 10$ NO, OUTPUT ANOTHER BYTE 


2973 004056 000137 002732 20$:  JMP EXEC : YES, RETURN TO THE EXECUTIVE 
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CKGROUND == ACCESS C 


-SBTTL BACKGROUND == ACCESS COMMAND 
ACCESS SPECIFIED LOCATIONS AND CHANGE IF DESIRED 


THE ACCESS COMMAND IS A QUICK LOOK AND CHANGE 
ROUTINE MAINLY USED FOR PROGRAM DEBUGGING. 


BASICALLY het Ry ACTIONS ARE PERMITTED: 
AXXX OPEN AND PRINT SPECIFIED OCTAL LOCATION 
”EXXXX XXJ(C/R) == CHANGE CURRENT LOCATION IF DATA 
SPECIFIED CXXXXXXJ_ AND OPEN NEXT LOCATION 
~~ RETURN TO EXEC MODE 


: JSR PC, COTB :GET THE START ADDRESS 

TST RS WAS A VALID ADDRESS ENTERED? 

BEQ 5$ GIVE OPERATOR AN ERROR 

BIT #1,R3 iWAS ADDRESS SPECIFIED A WORD ADDRESS? 
BEQ 7$ ZYES, OPEN SPECIFIED LOCATION 

JMP CERR ‘NO, GIVE OPERATO TOR AN ERROR INDICATION 
MOV R3,SADDR SSAVE STARTING ADDRESS 

MOV SADDR, [GET OBJECT WORD 

CLRB  =—« TCMACT ZCLEAR TELE ACTIVE LAG 

JSR PC ,OCTDMP sPRINT ADDRESS IN OCTAL 

MOV a” oR :PRINT 2° SPACES 

JSR PC,PRINT2 

MOV @SADDR RZ :GET CONTENTS OF OBJECT LOCATION 

JSR PC .ODMP SPRINT CONTENTS IN 

“MOV a” —6R2 SPRINT 2 SPACES 

JSR PC,PRINT2 

TSTB =‘ TCMACT sACTIVE COMMAND? 

BEQ 20$ 

MOV #TBUF ,R2 ?SET UP INPUT BUFFER ADDRESS 

JSR PC,COTB [WAS LOCATION CHANGED? 

TST RS SANY CHANGE? 

BNE 30$ :YES, STORE IT 

CMPB RG, #"/ :/, EXIT TO EXEC 

BEQ 50 SYES, RETURN TO EXEC 

CMPB sR, ACR :CR, GO TO NEXT LOCATION? 

BEQ 40$ ZYES, OPEN AND PRINT NEXT LOC. 

BR 10$ ZERROR PRINT CONTENTS OF CURRENT LOC. 
MOV R3,a@SADDR CHANGE OPEN LOCATION 

ADD #2.SADDR <OPEN NEXT LOCATION 


BR 108 
JMP EXEC ZRETURN TO THE EXEC 





Mm 5 











SEQ 64 
“CZDXI=C NEW DX11=B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 64 
CZDXIC.P 07-JUN-82 16:21 BACKGROUND == ENABLE DEVICE COMMAND 
319 .SBTTL BACKGROUND == ENABLE DEVICE COMMAND 
3020 : E = ENABLE DEVICE 
302 : THE ENABLE COMMAND TURNS THE DEVICE SPECIFIED INTO AN 
302 : ON-LINE MODE. THIS IS ONLY NECESSITATED BECAUSE A KILL 
sa5e : COMMAND WAS PERFORMED ON THE DEVICE IN QUESTION. 
3026 : THE ENABLE COMMAND HAS THE FOLLOWING SYNTAX: 
3027 : EXX = ENABLE DEVICE ADDRESS X 
3028 : THE DEVICE ADDRESS (XX) *nusT BE ENTERED IN HEX 
3030 004234 004737 005314 ENABLE: JSR PC,.GDEV :GET THE DEVICE NUMB NUMBER 
3031 004240 004737 010270 JSR PC. CDEVST :CLEAR THE DEVICE STATUS TABLE 
3032 004244 010005 MOV DEV.RS :COMPUTE THE ADDRESS OF THE SPW TABLE ENTRY 
33 004246 063705 013122 ADD DEVCON,RS [COMPENSATE FOR OFFSET DEVICE ADDRESS 
3034 004252 060505 ADD RS,R5 
3035 004254 063705 013126 ADD STSPW,RS 
3036 004260 013715 013130 MOV DSTOFF, (RS) ZENABLE THE DEVICE NUMBER 
3037 004264 105063 000002 CLRB § SSENSE (DTAB) 
3038 004270 105063 0000 CLRB = SONLF (DTAB) 


000137 





16 
002732 JMP EXEC RETURN TO THE EXEC 








CZDx1C.P11 07-JUN-82 16:21 


5 
ee 


005314 
37 010270 
112763 000001 
063705 013122 


063705 013126 
012715 000002 
000137 002732 


ENRRSROR 
& 


MAINDEC=11=CZDxXI-C NEW DX11-B RESPONDER 


000016 





N 5 


MACY11 30A(1052) O7=JUN-82 16:28 PAGE 65 
BACKGROUND == KILL DEVICE COMMAND 


»SBTTL BACKGROUND == KILL DEVICE COMMAND 
= KILL A DEVICE 


THE KILL COMMAND DISABLES i pore tele DEVICE ADDRESS FROM 
PERFORMING see inte’ OVER THE DX. IT tet THE SPECIFIED 
vi ADDRESS INTO AN Aa NE STATE. AN ENABLE COMMAND 
MUST BE ISSUED BEFORE DATA TRANSFERS MAY BE PERFORMED WITH 
THE DX FOR THE SPECIFIED DEVICE ADDRESS. 


THE ame fai asi eevitl lean BS geo 
THE DEVICE ADDRESS (XX) MUST BE ENTERED IN HEX 


PC,GDEV :GET THE DEVICE NUMBER 
JSR PC,CDEVST 
MOVB #1,SONLF (DTAB) 


PRO e Ge Se Se Ge Ge Ge Ge Be Se Se Se Se 


ms 
~ 
c 
= 
wn 
z» 


MOV DEV,RS COMPUTE THE ADDRESS OF THE SPW TABLE 
ae DEVCON, oRS :COMPONSATE FOR OFFSET DEVICE ADDRESS 
ADD STSPWLRS 


MOV #UCHK, (RS) MAKE THE DEVICE OFF-LINE SEND UNIT CHECK 
KILLEX: JMP EXEC RETURN TO THE EXEC 


SEQ 65 


B 6 


MAINDEC=11=CZDXI-C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 66 
CZDXIC.P11 O7-JUN-82 16:21 BACKGROUND == INPUT DISPLAY DATA COMMAND 


3 «SBTTL BACKGROUND == INPUT DISPLAY DATA COMMAND 
I = INPUT 


THE INPUT COMMAND IS USED TO ENTER DATA ONTO A 2260 
le te THEN SEND IT TO THE 360 VIA THE READ MANUAL INPUT 


SEQ 66 | 


| 
ee) 


PweGQe Ge Ge Se Ge Ge Ge Ge Fe Se Se 


3069 

3070 

3071 THE INPUT COMMAND HAS THE FOLLOWING SYNTAX: 

3072 IXX, DDD... .DDD SEND DATA DDD TO DEVICE x 

3075 THE DEVICE ADDRESS (XX) MUST BE ENTERED IN HEX | 
3075 004342 105737 012544 NPUT: TSTB  TSTTYP ZILLEGAL ON FRIEND TEST | 
3076 004346 001005 BNE 10$ [FRIEND == GIVE AN ERROR 

3077 004350 004737 005314 JSR PC, GDEV 7GET THE DEVICE NUMBER | 
3078 004354 120427 000054 CMPB RGA, STHE NEXT CHAR MUST BE A COMMA 

3079 004360 001402 BEQ 20$ :1T IS, CONT INUE 

3080 004362 000137 003040 10$:  JMP CERR SAN ERROR WAS FOUND GIVE INDICATION 

3081 004366 004737 010242 20$: JSR PC, SUDEV ‘SET UP THE DEVICE STATUS TABLE POINTERS 

3082 004372 026327 000004 000734 CMP SCURS (DTAB) #DISPSI=4 zARE WE AT THE END OF THE BUFFER? 

3083 004400 0023 BGE IVE AN eR ROR 

3084 004402 032763 000001 000004 BIT #1, SCURS(DTAB) iS TART 1oINBUT ON EVEN BYTE ADDRESS 

3085 004410 00100 BNE 30$ [START SOM ON ODD BYTE ADDRE 

3086 004412 005263 000004 INC SCURS (DTAB) ZINCR CURSOR TO ODD BYTE ADDRESS 

3087 004416 016305 000010 30$: MOV SOUTB(DTAB) .RS ; COMPUTE STARTING ADDRESS 
3088 004422 5 000004 ADD SCURS (DTAB) .R5 
3089 004426 112725 000112 MOVB  &#SMI,(RS)¢+ START CHARACTER TO BUFFER | 
3090 004432 010563 000020 MOV R5,SMINS(DTAB) :SAVE START OF DATA LOCATION 
3091 004436 005263 000004 40$: INC SCURS (DTAB) + INCREMENT CURSOR POSITION | 
3092 004442 026327 000004 000735 CMP SCURS (DTAB) »ADISPSZ~3 sARE WE AT THE END OF BUFFER | 
3093 004450 001423 BEQ 70S, :YES, tERMINATE INPUT | 
3094 004452 112204 MOVB = (R2 3GET NEXT INPUTTED CHARACTER | 
3095 004454 042704 177600 BIC £19766 (RG SSAVE L.O. 7 BITS | 
3096 020427 000015 CMP R4,ACR TEND OF INPUT? 
3097 004464 001415 BEQ 70$ :YES, SET UP TO EXIT 

3098 004466 020427 000040 CMP R4,ASPACE [CAN CHARA WER BE CONVERTED? 

3099 004472 002410 BLT 608 [NO, MUST BE BETWEEN 40 - 137 

3100 004474 020427 000137 CMP R4,w?_ 

3101 004500 003005 BGT 60§ NO, MUST BE BETWEEN 40 ~ 137 | 
3108 004502 162704 000040 SUB ACE RG SSCALE DOWN FOR INDEX XING | 
3103 004506 116425 012366 50$:  MOVB ATOE TBR), (RS) 4: CONVERT CHARACATER AND MOVE TO DISPLAY BUFFER 
3104 004512 000751 BR 40$ [GET AND CONVERT NEXT CHARACATER | 
3105 004514 005004 60$: CLR R4 SILLEGAL CHARACTER == TREAT AS SPACE 
3106 006516 000773 BR 50$ 
310 3 
3108 : SET UP TO EXIT 
3109 : set EOM INDICATOR 
3110 ; QUEUE READ MANUAL INPUT REQUEST 

3112 004520 112715 000152 70$: MOVB  #EOM, (RS) zSET EOM INDICAT 

3113 004524 005263 000004 INC SCURS (DTAB) > INCREMENT CURSOR POINTER 

He 004530 105263 000017 INCB = SRDRO(DTAB) TQUEUE READ REQUEST 

3116 : SEE IF THE DX IS CURRENTLY ACTIVE 

3118 004534 105737 013102 TSTB = DXACT r1S OX ACTIVE? 








MAINDE 


“CZDXI-C NEW DX11-B RESPONDER 
07 8 


C 6 
MACY11 30A(1052) O7=JUN-82 16:28 PAGE 67 
OMMAND 


SEQ 67 


BACKGROUND == INPUT DISPLAY DATA C 


I 
D 


o 
La J 


NN 
Wee 


000340 177776 


QSNAUVUEWN—O0O O 


Soooooceooo 


att ot I SS IO 
WWW Mrorofroerferrnnw— 
EASSSS 
oO 


; 
3 
: 
; 


awn 
SARNSSRRSNO 
NAAAAAQSNAG- 


S 





BEQ 80$ 3NO, START ASYNCHRONOUS PROCESSING TO SEND ATTENTION 
JMP EXEC sYES, ATTENTION WILL BE TAKEN CARE OF BY DX 


DX IS NOT ACTIVE 
CREATE PHONY INTERRUPT TO ALLOW DX TO ACT ON ATTENTION 


MOV PSW,=(SP) zPSw TO PUSH STACK 

MOV EXEC =(SP) ZRETURN ADDRESS TO PUSH STACK 
#340,PSW : INHIBIT INTERUPTS 

V RO, (SP) 'SET UP PUSH STACK FOR FAKE INTERRUPT 


JMP DXEXEC zSTART PROCESSING THE ATTENTION 


D 6 
SEQ 68 
MAINDEC=11~CZ0X -C NEW D Dx11-8 RESPONDER MACY11 30A(1052) O7=JUN-82 16: 128 PAGE 68 
CZDXIC.P11  07=JUN-82 16:21 BACKGROUND SUBROUTINES == PRINT FORMATT 
ne .SBTTL BACKGROUND SUBROUTINES == PRINT FORMATTING 
3137 : DUMP WORD IN EBCDIC ON TTY 
31 : CALLING SEQUENCE 
31 ; asain € TAINS WORD TO BE PRINTED 
31 ; JSR pe” OE BCOMP 
31 é eeesese URN 
31 
31 ; REGISTERS 2 + 3 ARE DESTROYED BY THIS SUBROUTINE 
3147 004 010237 013070 EBCDMP: MOV R2,WK ZSAVE WORD TO BE PRINTED 
3148 004610 113703 013070 MOVB R3 :GET LO BYTE 
3149 004614 042703 177400 BIC #177400,R3 
3150 004620 116337 011766 013070 MOVB  EBCDTB(R3),WK ;CONVERT EBCDIC TO ASCII 
3151 004626 113703 013071 MOVB =: WK 1, R3 [GET HI BYTE AND CONVERT 
3152 004632 042703 177400 BIC #177600,R3 
3153 004636 116337 011766 013071 MOVB EBCDTB(RS), WK1 ;:CONVERT CHAR TO ASCII 
3154 004644 013702 013070 MOV R2 
$1 3 FALL THROUEN TO ASCII PRINT ROUTINE 


DUMP WORD IN ASCII ON TTY 
CALLING SEQUENCE 


eseeeeR2 CONTAINS WORD TO BE PRINTED 
JSR PC,ASCDMP 
RETURN 


NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 


004650 105737 013067 ASCDMP: TST8 LINECT sNEW LINE? 

004654 001005 BNE 

004656 004737 011342 JSR PC, CRLF YES, PRINT CR/LF 

004662 112737 000036 013067 MOV8 #30. ,LINECT 760 CHARACTERS PER LINE 
004670 105337 013067 10$: DECB LINECT :DECR LINE COUNTER 

004674 004737 011360 JSR PC ,PRINT2 sPRINT 2 CHARS 
004700 000207 RTS PC RETURN TO CALLER 


DUMP WORD IN OCTAL ON TTY 
CALLING SEQUENCE 


eseeeeR2 CONTAINS WORD TO BE PRINTED 
JSR PC Oc TDAP OR ODMP 


OCTDMP PERFORMS A CR/LF BEFORE PRINTING OCTAL DATA 
NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
NC TDMP: JSR PC,CRLF GIVE A CRLF 


SSBLEARAVLS SSVRARANISSRISARARTZAS SSVRALUNLSSELETFEALESS 


WWAWAWANWNWAWNWAAAWNWWWWNAAWNWAAWAWNWAA AAA 
et to tS Sh SS too 


Ore Se Se So Se Fe Be Se Be Be Be Se 


004702 004737 011342 





——s 
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SEQ 69 
MAINDEC=11=CZDXI=C NEW DX11<B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 69 
CZDXIC.P11  — O7=JUN-82 16:21 BACKGROUND SUBROUTINES == PRINT FORMATTING 
3191 004706 010046 ODMP: MOV RO, (SP) ZSAVE IMPORTANT REGISTERS 
3198 004710 910246 MOV R2,=(SP) 
3193 004712 010446 MOV R4.=(SP) 
3194 004714 012704 000006 MOV #6,RG SEXTRACT 6 OCTAL DIGITS 
3195 004720 005000 CLR RO [CLEAR THE WORKING REGISTER 
3196 004722 006102 ROL R2 sMOVE HIGH ORDER BIT TO C-BIT 
3197 004724 100 10$: ROL RO 7GET THE REMAINING BIT STILL IN LINK 
3198 004726 042700 177770 BIC #177770,R0 ZONLY 3 LOW ORDER BITS 
3199 004732 062700 000060 ADD #°0,RO SMAKE ASCII 
3200 004736 004737 011400 JSR PC,PCHAR T IT ON THE T 
3201 004742 00610¢ ROL R2 :ROTATE ine NEXT OCTAL EMAR” INTO POSITION 
3202 004744 00610 ROL R2 
3203 004746 006102 ROL R2 
3204 004750 910200 MOV R2,RO :DATA TO WORKING REGISTER 
3205 004752 005304 DEC RG TARE WE DONE? 
3206 004754 001363 BNE 10$ [NO, PRINT ANOTHER CHARACTER 
3207 004756 012 OCTEX: MOV (SP)+,R4 SRESTORE USED REGISTERS 
3208 004760 012602 MOV (SP) +-R2 
3209 004762 O12 MOV (SP)+-RO 
$519 004764 000207 RTS PC ;RETURN TO THE CALLER 
3212 
3213 3 
$518 3 DUMP WORD IN HEX ON THE TTY 
3216 : CALLING SEQUENCE 
3317 Se apnea R2 CONTAINS THE WORD TO BE PRINTED 
3218 3 JSR PC + tae OR HDMP 
3559 ° maine ETUR 
$55) : HEXDMP PERFORMS A CRLF BEFORE OUTPUTTING THE DATA 
3225 : NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
3225 004766 004737 011342 HEXDMP: JSR PC, CRLF :D0 A CR 
3226 004772 010046 HDMP: MOV RO.=(SP) + SAVE THES UORKING REGISTERS 
3227 004774 010246 MOV R2,-(SP) 
3228 004776 010446 MOV R4,=(SP) 
3229 005000 012704 000004 MOV #4,RG 74 CHARACTERS PER WORD 
3230 005004 006102 10$: ROL R2 ZROTATE HIGH ORDER 4 BITS TO LOW ORDER 4 BITS 
3231 005006 006102 ROL R2 
3232 005010 006102 ROL R2 
3233 005012 006102 ROL R2 
005014 010200 MOV R2,RO :TO WORKING REG 
3235 005016 006100 ROL RO 3GET THE LINK BIT TOO 
005020 042700 177760 BIC #177760, RO [ONLY LOW ORDER 4 BITS 
3237 005024 062700 000060 ADD #°O,R [MAKE ASCII IF NUMBER 
3238 005030 020027 000071 CMP RO #9 SSHOULD IT BE A-F? 
3239 005034 003402 BLE 208 ‘NO, SHIP IT 
3240 005036 062700 000007 ADD #7,R0 [YES, MAKE ALPHA 
3241 005042 004737 011400 20S: JSR PC,PCHAR ;PRINT THE HEX CHARACTER 
32 DEC R4 ARE e? 
BN 10$ =NO, CONVERT AND PRINT NEXT CHARCATER 
MOV (SP)+,R4 TYES, RESTORE REGISTERS AND EXIT 


MOV (SP)+,R2 
MOV (SP)+,RO 


F 6 


MAINDEC=11-CZDXI-C NEW DX11-B8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 70 
CZDXIC.P11 07-JUN-82 16:21 BACKGROUND SUBROUTINES == PRINT FORMATTING 


3247 005060 000207 RTS PC RETURN TO THE CALLER 






SEQ 70 


G 6 


SEQ 71 
MAINDEC=11=CZDXI=C NEW DX11=8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 71 
CZDXIC.P11  07=JUN-82 16:21 BACKGROUND SUBROUTINES == COMPUTE SPECIFIED BUFFER LIMITS AND DEVICE ADDRESSES 
48 .SBTTL BACKGROUND SUBROUTINES == COMPUTE SPECIFIED BUFFER LIMITS AND DEVICE ADD 
3249 : GLIMIT == SET UP BUFFER LIMITS FOR TELE COMMANDS 
3251 ; CALLING SEQ 
325¢ : oie ADDRESS OF FIRST PARAMETER 
325 : JSR PC,GLIMI 
3354 : Ss miaaliches RETURN e NO ERRORS DETECTED IN BUFFER LIMIT SYNTAX 
3055 : AN ERROR 1s DETECTED, CONTR OL wi 
3256 : PASSED TO CERR” TO ABORT THE TELETYPE COMMAND. 
3257 ; UPON GOOD RETURN: 
3358 : RO = 0 = NOT T/T, 1 = T/T 
3359 : R2 = NEXT CHAR POSITION IN COMMAND STRING 
3260 ; SADDR = BEG ADDR TO BE DUMPED 
3261 : EADDR = END ADDR TO BE DUMPED 
3o68 : REGISTERS RS, R4, R3 WILL BE DESTROYED. 
3268 ; IF AN ERROR IS FOUND CONTROL IS PASSED TO CERR 
3267 005062 005000 GLIMIT: CLR RO RESET BUFFER TYPE 
3268 005064 004737 011552 JSR PC,COTB [GET FIRST PARAMETER 
3269 005070 005705 TST RS [WAS AN OCT AL NUMBER ENTERED? 
3270 005072 001014 BNE GLOCT TYES, OCTAL PARAMS 
3271 005074 120427 000124 CMPB RG, #'T :T = TUMBLE TABLE 
3272 005100 001425 BEQ GLATT SYES, SET UP T/T LIMITS 
3273 005102 120427 000111 CMPBséRG AI :1 = INPUT BUFFER 
3274 005106 001436 BEQ GLMIN 7YES, SET UP INPUT BUFFER LIMITS 
3275 005110 120427 000117 CMPBssaRG#"0 [0 = OUTPUT BUFFER 
3276 005114 001453 BEQ GLMOT [YES, SET UP OUTPUT BUFFER LIMITS 
3575 : ERROR DETECTED = POP OFF RETURN ADDR AND GIVE ERROR 
3280 005116 012601 GLERR: MOV (SP)+,R1 
3281 005120 000137 003040 JMP CERR 
3282 
3283 
3284 : 
3285 : OCTAL LIMITS SPECIFIED 
3287 005124 010337 013132 GLOCT: MOV R3,SADDR ZSAVE START ADDR 
3288 005130 120427 000054 CMPB RGA", [CHECK FOR COMMA (,) 
3289 005134 001370 BNE GLERR 
3290 005136 004737 011552 JSR PC, COTB :GET END ADDR 
3291 005142 005705 TST RS WAS SECOND PARAM GIVEN? 
3292 005144 001764 BEQ GLERR [NO, ERROR 
3293 005146 010337 013134 MOV R3, EADDR ‘SAVE END ADDR 
3294 005152 000454 BR GLEX [PREPARE TO EXIT 
3296 
3297 : 
3298 3 SET UP LIMITS OF TUMBLE TABLE 
3300 005154 112204 GLMTT: MOVB (R2)+,R4 
3301 005156 120427 000124 CMPB RG, AT :MUST BE TT 
3302 005162 001355 BNE GLERR ZILLEGAL ENTRY 
3303 005164 013737 013072 013132 MOV TTPTR, SADDR 





Pati terse Sea re vedvanhtemmpaaiinetpenatee er seeepaduristintaienptisciatneatitieditininte 
SEQ 72 


MAINDEC=11=CZDXI=C NEW DX11<B RESPONDER MACY11 30A(1052) 07=JUN-82 16:28 PAGE 72 

CZDXIC.P11  07=JUN-82 16:21 BACKGROUND SUBROUTINES == COMPUTE SPECIFIED BUFFER LIMITS AND DEVICE ADDRESSES 
304 005172 062737 000776 013132 ADD #TTSIZE+2,SADDR ;COMPUTE ADDRESS OF APPR DUPLICATE TT ENTRY 

305 005200 005200 INC RO s INDICATE DUMP TUMBLE TABLE 

3306 005202 000437 BR GLEX1 :SET UP TO EXIT 
3308 
3309 3 
3310 : SET UP LIMITS FOR INPUT BUFFER OF DEVICE 0 
3312 005204 112204 GLMIN: MOVB (R2)+,R4 
3313 005206 120427 000116 CMPB a4 AN zMUST BE IN 
3314 005212 001341 BNE GLERR TILLEGAL ENTRY 
3315 005214 013704 013076 MOV SDEVTB,R4 7GET ADDR OF DEV 0 STATUS TABLE 
3316 005220 016437 000006 013132 MOV SINBF (R4), SADDR 
3317 005226 013737 013132. 013134 MOV SADDR,EADDR 
3318 005234 062737 000741 013134 ADD #DISPS7+1,EADDR ;DISPLAY SIZE + ROOM FOR LINE ADDRESS 
3319 005242 000417 BR GLEX1 
3320 
3321 
$358 3 
3323 : SET UP LIMITS FOR OUTPUT BUFFER OF DEVICE 0 
3325 005244 112204 GLMOT: MOVB (R2)+,R4 
3326 005246 120427 000124 CMPB RG, AT zMUST BE OT 
3327 005252 001321 BNE GLERR TILLEGAL ENTRY 
3328 005254 013704 013076 MOV SDEVTB,R4 2GET ADDR OF DEV 0 STATUS TABLE 
3329 005260 016437 000010 013132 MOV SOUTB(R4),SADDR ;COMPUTE STARTING AND ENDING ADDRESSESS OF SPECIFIED BUF 
3330 005266 013737 013132 013134 MOV SADDR,EADDR 
3331 005274 062737 000737 013134 ADD #DISPS7-1,EADDR ;DISPLAY CHAR BUFFER 
3332 5302 112204 GLEX1: MOVB (R2)+,R4 :GET NEXT INPUT CHARACTER AND UPDATE POINTER 
3334 : INSURE ENTRY PROPERLY DELIMITED AND RETURN TO CALLER 
3336 005304 120427 000054 GLEX: CMPB R4,A', :CHECK FOR , 
3337 005310 001302 BNE GLERR SENTRY NOT PROPERLY DELIMITED (ERROR) 
3338 005312 000207 RTS PC 





1 6 
SEQ 73 
MAINDEC=11-CZDxX1=C NEW DX11=B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 73 
CZDXIC.P11  07=JUN-82 16:21 BACKGROUND SUBROUTINES == COMPUTE SPECIFIED BUFFER LIMITS AND DEVICE ADDRESSES 
3339 ; 
x49 : GDEV == GET THE THE DEVICE NUMBER FROM THE HEX INPUT 
334 : CALLING SEQUENCE 
334 : sesceeeeeR2 = ADDRESS OF DEVICE ADDRESS IN HEX 
3344 ; JSR PC, GDEV 
3345 : weeeeeeeRETURN IF NO ERRORS DETECTED 
3378 : IF ERROR DET TECTED, ED, COMMAND IS ABORTED BY GOING 
3348 : UPON VALID RETURN 
3349 : R3 AND DEV (RO) WILL CONTAIN THE DEVICE ADDRESS 
3350 : ALED TO 1 = 8, NOTATION USED BY SYSTEM. 
3331 3 R2 WILL POINT TO THE NEXT CHARACTER FOLLOWING DEVICE ADDRESS 
3353 005314 011616 GDEV: JSR PC, CHTB : CONVERT THE | HEX TO BINARY 
3354 005320 163703 012534 SUB SDEV,R3 S=STARTING ADDRESS 
3355 005324 100406 BMI 10$ ZERROR ON 
3356 005326 005203 INC R3 [MAKE BETWEEN 1 AND 8 
3357 005330 120337 013101 CMPB  —saR'3, MAXDEV 31S DEVICE NUMBER TOO B1G? 
3358 005334 101002 BHI 10$ YES, GIVE 
3359 005336 010300 MOV RS, DEV tSET UP THE DEVICE NUMBER 
3360 005340 000207 RTS 
3361 005342 000137 003040 10$:  JMP CERR s INPUT PARAM ERR 
336 .SBTTL DX11-B ISR (INTERRUPT REQUEST tosic AND TUMBLE TABLE DECODE LOGIC) 
seee ; Dx11-B ISR 
3366 : DX11 ISR AND RELATED SUBROUTINE REGISTER USAGE 
3368 : RO DEV DEVICE NUMBER 
3369 : R1 UN ASSIGNED 
3370 : R2 UNASSIGNED 
3371 : R3 DTAB  _— ADDRESS 70 CURRENT DEVICE TABLE 
3372 : R4 TT1 TUMBLE TABLE ENTRY 1 
3375 ; RS TT2 TUMBLE TABLE ENTRY 2 
3375 : THE ABOVE REGISTER DESIGNATIONS REPRESENT WHAT USUALLY WILL 
3376 : BE CONTAINED IN A REGISTER DURING DX ISR PROCESSING. HOWEVER, 
3377 : AS SITUATIONS DICTATE REGISTERS MAY BE USED FOR DIFFERENT 
3378 3 PURPOSES. 
3380 005 01004 DXISR: MOV RO,-(SP) ZSAVE HARDWARE REGISTERS 
3381 005350 010146 MOV R1,-(SP) 
3382 005352 010246 MOV R2.=(SP) 
3383 005354 010346 MOV R3,-(SP) 
3384 005356 010446 MOV R4,=(SP) 
3385 005360 010546 MOV R5,-(SP) 
3386 005362 013702 013072 MOV TTPTR,R2 3CHECK FOR ZERO T/T ENTRY UPON INTERRUPT 
3387 005366 005712 TST (R2) 
3388 005370 00100. BNE LOOP ZNON-ZERO == WERE OK 
3390 ; NOTE == AN INTERRUPT OCCURRED WITHOUT A TUMBLE TABLE 
3391 : ENTRY, THE ASSUMPTION IS THEN MADE THAT THE TUMBLE TABLE 
3392 ; ENTRY HAS ALREADY BEEN PROCESSED 


3394 005372 000137 010224 , JMPDXEXIT 





=_—s 
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SEQ 74 
MAINDEC=11=CZDxXI=C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 7 
CZDXIC.P11  07=JUN-82 16:21 DX11-B ISR (INTERRUPT REQUEST LOGIC AND TUMBLE GABLE DECODE LOGIC) 
3395 : 
3396 : PROCESS TUMBLE TABLE ENTRIES 
3397 ; FOR CONVIENCE THE PROCESSING _ 1S BEING PERFORMED 
3398 : AT THE INTERRUPT LEVEL. IT § SUGGESTED THAT IN 
3399 ; NORMAL PROCESSING ENV VIRONMENTS THIS PROCESSING 
3400 ; BE DISTRIBUTED TO LESS PRIVILED GED PRIORITY LEVELS 
3401 : SUCH AS THE FORK LEVEL IN RSX11-M 
3403 : THE INTERRUPT SERVICE LEVEL PROCESSING REQUIRED 
3404 ; BY THE DX11-B IS TO RELEIVE THE INTERRUPT (DONE BIT 
3405 ; IN DxCS) TAND SCHEDULE A REQUEST FOR PROCESSING 
3406 : T ANOTHER LEVEL. THE LEVEL SCHEDULED TO PERFORM 
3407 : THE PROCESSING SHOULD BE HIGH ENOUGH 
3408 : TO PROTECT AGAINST TUMBLE TABLE OVERFLOW. 
3410 ; THE TUMBLE TABLE ENTRIES ARE PROCESSED SEQUENTIALLY FROM THE 
3411 ; CIRCULAR BUFFER FILLED BY THE DX. AS EACH ENTRY IS RETRIEVED 
3412 : FROM THE TUMBLE TABLE IT IS ZEROED. IT IS THIS MECHANISM 
3413 : THAT ALLOWS THE PROGRAMMER TO DISCERN WHEN ALL ENTRIES HAVE 
3414 ; BEEN PROCESSED. WHEN ALL ENTRIES HAVE BEEN 
3415 ; RETRIEVED FROM THE TUMBLE TABLE THEN THE NEXT ACTION 
3416 ; IS PERFORMED TO THE DX. THE DX11-B NEVER ENTERS A ZERO 
le é IN TUMBLE TABLE ENTRY 1. 
3419 005376 013702 013072 Loop: Mov TIPTR,k2 :GET T/T 
3420 005402 005712 TST (R2) ANY ENTRIES LEFT IN T/T? 
3421 005404 001002 BNE 10$ 
3422 005406 000137 006566 JMP DXEXEC ZNO, EXECUTE NEXT DX COMMAND 
3424 : TUMBLE TABLE ENTRY AVAILABLE FOR PROCESSING 
3425 : RES ET THE DONE BIT (RELIEVE INTERRUPT) 
3426 : COPY TUMBLE TABLE ENTRY TO DUPLICATE TUMBLE TABLE (FOR SYSTEM TESTS PURP 
gt 3 RESET TUMBLE TABLE ENTRY (2 WORDS) 
3429 005412 042777 000200 005062 10$: BIC sDONE ,@Dxcs ZCLEAR DONE 
3430 005420 010203 MOV R2,R ‘SET UP PTR TO DUP T/T 
3431 005422 062703 001000 ADD aTisize R3 
3432 005426 011223 MOV (R2), (RS) + :SAVE T/T ENTRY #1 
3433 005430 011204 MOV (R2).1T1 
3434 005432 905022 CLR (R2)+ :CLEAR T/T ENTRY #1 
3435 005434 01122 3 MOV (Re), (RS) [SAVE T/T ENTRY #2 
3436 005436 011205 MOV (R2),1T2 
3437 005440 005022 CLR (R2)+ ZCLEAR T/T ENTRY #2 
is ; CHECK FOR POINTER WRAP AROUND 
3441 005442 032702 000777 BIT #TTSIZE-1,R2 AT END OF BUFFER? 
344 :NOTE =- POWER OF 2 BOUNDRY 
3443 005446 001002 BNE 208 
3444 005450 013702 013074 MOV TTADDR,R2 SYES, RESET PTR 
3445 005454 010237 013072 20$: MOV R2,TTPTR SSAVE T/T PTR 
3447 : START PROCESSING TUMBLE ENTRY ENTRY 
3448 : SAVE DEVICE ADDRESS 
3449 : CHECK FOR SYSTEM RESET 
3450 ; VALIDATE DEVICE ADDRESS 
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SEQ 75 
MAINDEC=11=CZDX1=C NEW DX11=B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 75 
CZDXIC.P11 | 07=JUN-82 16:21 DX11=B ISR (INTERRUPT REQUEST LOGIC AND TUMBLE TABLE DECODE LOGIC) 
3451 ; 
345¢ ; NOTE == IF SYSTEM RESET OCCURRED, THERE IS NO GUARANTEE 
3433 ; THAT THE DEVICE ADDRESS WILL BE VALID. 
3455 005460 010500 : MOV :GET DEV @ 
56 005462 042700 177400 BIC #177400, DEV 
3457 005466 910037 013120 MOV DEV, CDEV :SAVE CURRENT DEVICE NUMBER 
3458 005472 40777 000200 005002 BIC #DONE ,aDXCS :C DONE 
3459 005500 032704 010000 BIT #SYSRST,TT1 :SYSTEN RESET? 
3460 005504 001066 BNE PSYSRT SYES, PERFORM SYSTEM RESET FUNCTION 
3461 005506 163700 012534 SUB SDEV, DEV [GET IN O-7 RANGE = IF VALID 
3462 005512 100403 BMI 30$ INVALID DEVICE NUMBER 
3463 005514 120037 013101 CMPB = DEV, MAXDEV [VALID DEVICE? 
3464 005520 103405 BLO 40$ :YES, NOT TOO BIG 
3466 : INVALID DEVICE ADDRESS = BITCH 
3468 : AN INVALID DEVICE ADDRESS WILL GENERALLY INDICATE 
3469 : A PROBLEM IN THE CONF IGURAT ION OF DX DEVICE 
3470 : ADDRESSES. BASICALLY THE DX HAS BEEN STRAPPED 
3471 ; TO HANDLE DEVICE ADDRESSES WHICH OVERLAP WITH 
3472 ; OTHER DEVICES ON THE CHANNEL. 
3474 005522 004137 011520 30$: JSR R1, INMES :PRINT “INVALID DEVICE" 
3475 005526 014054 JSORD ILLMES 
3476 005530 000137 006550 JMP DXAB yABORT DX11 
3478 : COMPUTE ADDRESS OF SPECIFIED DEVICES STATUS TABLE 
3480 005534 005200 40$: INC DEV ZMAKE DEVICE NUMBER 1 -8 


3481 005536 004737 010242 JSR PC, SUDEV SET UP ADDR OF DEV STAT TABLE 
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6 
DX11-B ISR (INTERRUPT REQUEST LOGIC AND TUMBLE TABLE DECODE LOGIC) 


TINDSC: 


TNXM: 


TESEND: 


TPARER: 


TCHIS: 


TCHEND: 


TCUEND: 





SELRST: ae 
BEQ 


DECODE DX TUMBLE TABLE STATUS ENTRY 
a. FOLLOWING PROCESS ge THE ORDER IN WHICH 


TUMBLE TABLE 
THis ORDER IS IMPORTAN 


aoe ENTRY SHOULD BE DECODED. 
T AND SHOULD BE ADHERED 


TO FOR MOST EMULATIONS. 


#SELRST,TT1 
TINDSC 


PSELRT 
— 


PN 
#ESEND,TT1 
TPARER 
PESEND 
#PARER,TT1 
TCHIS 
PPARER 
#CHIS,TT1 
TCHEND 
PCHIS 
#CHEND,TT1 
TCUEND 
PCHEND 
#CUEND,TT1 
LOOP 
PCUEND 


: SELECTIVE RESET? 
, TEST INTERFACE DISC 
PERFORM SELECTIVE “RESET 
Teter DISCONNECT? 
HECK NON-EXISTENT MEMORY 
ives, COERFONN INTER DISC 
:NON“EXI STENT MEMORY ERROR? 


END 
ives, PROCESS NON-EXISTENT MEMORY ERROR 
;WAS STATUS ACCEPTED? 

CHECK FOR PARITY ERROR 
?YES, PERFORM STATUS ACCEPT 
[DID A PARITY wid OCCUR? 


; ITY ERR 

DID CHANNEL START A SELECTION SEQ? 
3NO, CHECK HANNEL DAT 

sYES, PROCESS SELECTION SEQUENCE 
DID CHANNEL END OC 

NO, CHECK FOR CONTROL UNIT END 
YES, PROCESS CHANNEL ee 

:D1D A CONTROL UNIT END 


CCUR? 
IGNORE ENTRY -- ASSUME STACK STATUS 
ives, PROCESS CONTROL UNIT ENv 


SEQ 76 
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6:21 


000100 
012544 
012546 


013101 


013102 
013106 
000400 
005376 


010270 
010322 
000002 
013102 


013106 
005376 


004476 


DX11-B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC) 
-SBTTL DX11-B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC) 


SYSTEM RESET y 1g: FROM 360 
CLEAR ad ee al TABLES AND RESPECTIVE 


A SEN Y 
RESET DX ACTIVE FLAGS AND COMMAND CHAIN FLAG 


i 


SYSRT: MOV #1 ,DEV sSTART AT FIRST DEVICE 

108: JSR PC,CDEVST SCLEAR DEVICE STATUS TABLE 
JR PC,CSPWST RESET SPW STATUS WORD UPON SYSTEM RESET 
CLRB SSENSE (DTAB) CLEAR SENSE BYT 
CLRB ( ) CLEAR THE READ REQUEST 


CLR SMINS (DTAB) CLEAR THE PR MANUAL INPUT ADDRESS 


C UR 
CLRB SSTAT (DTAB) i at 4 STATUS REGISTER 
MOV Diese sSET UP TO CLEAR THE DISPLAY BUFFER 


MOV #DISPS UP NUMBER OF CHARACTERS IN DISPLAY 

MOVB freee * R4 3 ASSUME sae DIAGNOSTIC TEST MODE 

TSTB TSTTY WHAT TYPE OF TEST? 

BEQ 20$ ; IF OBG8, USE EBCDIC SPACE 

MOVB FILLCH,R4 : FRIEND TEST =~ USE CURRENT FILL CHARACTER 
208: MOVB R4,(R1)+ sUSE THE FILL CHARACTER 

DEC R2 sARE WE DONE? 

BNE 20$ NO, LOOP TILL DONE 

INC DEV :TO NEXT DEVICE 

CMPB DEV MAXDEV ARE WE DONE? 

BLE 10$ NO, CLEAR NEXT et STAT TABLE 

CLRB DXACT ZCLEAR DX ACTIVE FLAG 

CLRB CMD CHF CLEAR COMMAND CHAINING FLAG 

BIC #CUBUSY,aDXCS RESET CU BUSY FLAG 

JMP LOOP sPROCESS NEXT T/T ENTRY 


CHANNEL ISSUED A SELECTIVE RESET 
RESET THE DEVICE STATUS TABLE FOR THAT DEVICE + SENSE 
NOTE: THE SEL RESET IS ISSUED AGAINST THE CURRENT 


ACTIVE DEVICE 

BSELAT: JSR PC, CDEVST :CLEAR DEVICE STATUS TABLE 
J PC. CSPWST TRESET SPw STATUS RESPONSE 
CLRB SSENSE(DTAB) §:CLEAR SENSE BYTE 


“Wee Se Se Se Se Ge Se 


BY 
CLRB DXACT SCLEAR DX ACTIVE FLAG 
CLRB CMD CHF CLEAR COMMAND CHAIN FLAG 
JMP LOOP 


INTERFACE DISCONNECT WAS ISSUED FROM THE 360 
THIS IS DIRECTED TO A SPECIFIC DEVICE AND IS UNDER 
360 PROGRAM CONTROL 


IF THE DEVICE WAS ACTIVE 
ITS DEVICE STATUS TABLE WILL BE CLEARED 


SEQ 77 
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SEQ 78 
MAINDEC=11-CZDXI=C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 78 
CZDXIC.P11 = O7=JUN-82 16:21 DX11-B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC) 

3570 : D CHAN END ! DEVICE END SET IN STATUS BYTE 
327) : IF THE DEVICE IS NOT ACTIVE THE COMMAND WILL BE IGNORED 
3573 006040 004737 010322 PINDSC: JSR PC, CSPwWST ZCLEAR THE sPu STATUS RESPONSE 
3574 006044 105763 0000 TSTB SCMD(DTAB) iis DEVICE ACTIVE? 
3575 006050 001417 BEQ 20 NOR eS 
3576 006052 004737 010270 JSR VST CLEAR THE DEVICE STATUS TABLE 
3577 006056 012763 000003 000000 MOV aceDe x SEMD(DTAB) ; SUE DEV END + CHAN END 
3578 006064 120037 013102 CMPB = DEV, DXACT iis DEVICE USING DX NOW? 
3579 006070 001002 BNE 108 
3580 006072 105037 013102 CLRB = DKACT iYES RELEASE D 
3581 006076 120037 013106 10$: CMPB —DEV,. CMDCHF DOES DEVICE HAVE CMD CHAIN SPEC? 
3582 006102 001002 BNE 20$ NO, GET NEXT T/T ENT 
3583 006104 105037 013106 CLRB = CMD CHF 3YES, CLEAR FLA HA 
3584 006110 000137 005376 20$: § JMP LOOP ‘GET NEXT T/T ENTRY 
3586 
3587 : 
3588 ; A NON-EXISTANT MEMORY CONDITION OCCURRED 
3389 : THIS WILL USUALLY TRAP OUT FIRST 
3591 006114 004137 011520 PNXM: JSR R1, INMES ZPRINT "NON EX MEM’ 
3592 006120 014000 .WORD  NXMMSG 
3593 006122 000137 006550 JMP DXAB yABORT DX AND RETURN TO EXEC 
3595 
3596 
3597 F 
3598 ; THE LAST STATUS SENT TO THE 360 WAS ACCEPTED, CLEAR DX 
3599 ; ACTIVE F 
3609 ; IF LAST OP WAS A WRITE PERFORM THE DISPLAY CONTROL ROUTINE 
3602 006126 004737 010322 PESEND: JSR PC, CSPWST yRESET THE SPW STATUS BYTE 
3603 006132 105763 000001 TSTB  ©SLCMD(DTAB) ;DOES LAST COMMAND REQUIRE 2260 DISPLAY EMULATION? 
3604 006136 001402 BEQ 10$ iN 
3605 006140 004737 010414 JSR PC DISCTL ZYES, FORMAT THE DISPLAY 

06 006144 126327 000000 000011 10$: § CMPB SChD(DTAB) . #11 :WAS ATTN ACCEPTED? 
3607 006152 001003 BNE 20$ ZNO, CONTINUE 
3608 006154 112763 000002 000017 MOVB #2,SRDRQ(DTAB) :YES, INDICATE 360 ACCEPTANCE 
3609 006162 105063 000001 20$: CLRB SLCMD(DTAB) 
3610 006166 105037 013102 CLRB = DKACT ZCLEAR DX ACTIVE FLAG 
3611 006172 004737 010270 JSR PC, CDEVST i CLEAR THE DEVICE STATUS TABLE 
3612 006176 032704 000004 BIT #CMDCHN,TT1 WAS COMMAND CHAINING SPECIFIED? 
3613 006202 001402 BEQ 30$ 
3614 006204 110037 013106 MOVB DEV. CMD CHF ives, SAVE THE DEVICE NUMBER 
3615 006210 123727 013100 000105 30$:  CMPB  DXSTPF,#'E zWAS STOP ON END SEQ SPEC?(SE) 
3616 006216 001552 BEOQ STPDX ZYES, DISABLE THE DX 
3618 006220 032704 000010 BIT #ISSREJ,TT1 sWAS AN ISS REJ DETECTED? 
3619 006224 001412 BEQ 50$ iNO, EXIT 
3? 
3622 ; INIT SELECTION SEQUENCE WAS REJECTED BY ox (FAST CU BUSY SEQUENCE) 
3623 : FREIND | TEST MO MODE == QUEUE CONTROL UNIT END 

24 ; UNIT COMPLETING TRANSF 

25 : IF 2848 DIAGNOSTIC TEST MODE == QUEUE CONTROL UNIT END 





ee 
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SEQ 79 
MAINDEC=11=CZDXI=C NEU DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 79 
CZDKIC.P11 | 07=JUN-82 16:21 DX11<8 ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC) | 
6 : RESPONSE ON LOW ORDER CHANNEL ADDRESS | 
8 : THE 2848 DEVICE EMULATION IS EXPECTED TO ISSUE | 
: A. CON ONTROL UN UNIT END ON THE LOW ORDER DEVICE ADDRESS 
3 1 ; MOST OTHER ee 86/870 B DEVICES ARE EXPECTED TO ISSUE 
365 : CONTROL UNIT END ON THE DEVICE COMPLETING THE OPERATION. 
3634 6 105737 012544 , TSTB. = TSTTYP :PROCESS SEPARETLY IF FRIEND 
§ 006232 001004 BNE 40$ [FRIEND =-QUEUE CU END ON BUSY UNIT 
3 012700 000001 MOV a -DEV :SET UP TO SEND CUE ON LOW ORDER CONTROLLER ADDR | 
37 40 004737 010242 JSR PC; SUDEV | 
3638 006244 112763 000010 000000 40$:  MOVB #OCUE,SCMD(DTAB): ‘ aueUE CONTROL UNIT END | 
3039 52 000137 005376 50$:  JMP LOOP [LOOP BACK AND PROCESS NEXT TUMBLE TABLE ENTRY | 
3641 | 
sr8 3 
364 ; : PARITY ERROR WAS DETECTED | 
3645 006256 004137 011520 PPARER: JSR R1, INMES :PRINT "PARITY ERROR'’ 
3646 62 014030 “WORD PARMES 
3647 264 123727 013100 000120 CMPB ss: XSTPF,#"P :$TOP ON PARITY yERROR?? 
3648 006272 001524 BEQ STPDX DISABLE THE DX | 
3649 006274 152763 000002 000003 BISB #UCHK, SSTAT(OTABS eset UNIT CHECK IN STATUS WORD 
3650 2 000137 005624 JMP TCHIS SCONTINUE WITH TUMBLE TABLE INTERROGATION | 
369 | 
3654 : CHANNEL INITIATED SELECTION SEQUENCE 
3655 : THUS FAR THE DEVICE NUMBER HAS BEEN VALIDATED | 
3656 : AND THE COMMAND CHECKED BY THE DX | 
3658 ; TT2 CONTAINS THE COMMAND TO BE EXECUTED | 
3660 006306 004737 010322 PCHIS: JSR PC,CSPWST :RESET THE SPw STATUS BYTE 
3661 [ON NEXT CHANNEL INITIATED SELECTION SEQUENCE 
566¢ 006312 123727 013100 000111 CMPB s«éDXSTPF,#"1 [WAS STOP ON ISS SPECIFIED(SI) 
3663 006320 001511 BEQ STPDX iYES, DISABLE DX 
3664 006322 032704 000001 BIT #CMDREJ,TT1 WAS COMMAND REJECTED BY DX? 
3665 006326 001022 BNE 208 [YES, COMMAND REJECTED BY THE DX 
3667 : VALID COMMAND, SET UP TO PROCESS IT 
3669 006330 105005 7 CLRBsiT'T2 ;RESET DEVICE ADDRESS BITS 
3670 006332 000305 SWABOC*dTTT. [COMMAND TO L.O. BYTE 
3671 006334 105705 1ST8 2 s«dTT [TEST 1/0 COMMAND? 
3672 006336 001437 BEQ 50$ :YES, IGNORE 
3673 006340 120587 000003 CMPB Ss: TT2, #NOP [WAS COMMAND A NOP? 
3674 006344 0014 BEQ ‘YES, IGNORE IT 
3675 006346 020527 000012 CMP TT2,#12 TIS THIS A VALID COMMAND? 
3676 006352 003405 BLE 10$ [YES, QUEUE TO BE EXECUTED 
3677 006354 004137 011520 JSR R1, INMES [NO == REPORT AN ILLEGAL COMMAND RECIEVED FROM THE Dx 
78 006 014142 -WORD INVLDC 
79 006362 000137 006550 jMP DXAB :AND ABORT THE PROGRAM 
3680 006 110563 000000 10$:  MOVB  TT2,SCMD(DTAB) QUEUE COMMAND TO BE PROCESSED 
3681 006372 000421 BR 50$ TEXIT * PROCESS NEXT T/T ENTRY 
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MACY11 30A(1052) O7=JUN-82 16:28 PAGE 80 
DX11-B8 ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC) 


COMMAND 


TSTB 
BEQ 


WAS REJECTED, DETERMINE WHY 


—_—— :1S DEVICE ON LINE? 
0$ :YES, TEST PARITY ERROR 


DEVICE OFF-LINE == RESPOND INTERVENTION REQUIRED SENSE CONDITION 


BIS 
B 
COMMAND 


BIS 
BR 


INVALID 


CONTROL 


CLRB 
JSR 
BCC 


#INTREQ, SSENSE (DTAB) hd INTERVENTION REQUIRED IN SENSE BYTE 
FINISH UP CHANNEL INITIA Ls SELECTION PROCESS 

#PARER,TT1 WAS A PARITY ERROR DETECTED? 

40$ NO, MUST BE ILLEGAL COMMAND 


WAS REJECTED BECAUSE OF A PARITY ERROR 
SET UP BUS OUT SENSE RESPONSE 


#BUSOUT ,SSENSE(DTAB) ;SET BUS OUT FLAG 
50$ sEXIT 

COMMAND RECEIVED FROM 360 

SET UP COMMAND REJECT SENSE RESPONSE 
#SCMDRJ,SSENSE(DTAB) ;SET CMD REJ FLAG 


INITIATED SELECTION SEQUENCE COMMON EXIT LOGIC 
IF SELECTED DEVICE HAS COMMAND CHAINING IN AFFECT == KILL IT 


DEV, CMDCHF ag DEVICE “ah COMMAND — SPECIFIED? 
60$ GET NEXT TUMBLE TABLE ENTRY 

CMD CHF YES, CLEAR THE COMMAND CHAINING FLAG 

LOOP AND GET THE NEXT T/T ENTRY 


UNIT END OF DATA TRANSFER WAS DETECTED 

IF TRANSFER COMPLETE PREPARE ENDING SEQ RESP 

IF TRANSFER INCOMPLETE INCR BUFFER ADDRESS 
DECR BYTE COUNT 


DXACT CLEAR DX ACTIVE FLAG 
PC ,MUXEND HANDLE MUX DATA TRANSFER COMPLETION 
PCHEX :I1F SEL CHAN OR MUX D/T NOT DONE, MERELY EXIT 


MUX DATA_TRANSFER COMPLETE 


CHANNEL 


CLRB 
JSR 


TREAT SAME AS SEL CHANNEL DONE 
PCHEN1 


END WAS DETECTED 
PREPARE ENDING SEQUENCE RESPONSE 


DXACT CLEAR DX ACTIVE FLAG 
PC ,MUXEND 3 IF MUX CHANNEL HANDLE DATA TRANSFER 


SEQ 80 
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013100 000104 PCHENI: C 


000003 
905768 
100000 


0 
00396 
013100 


001100 
013104 


010224 


012540 
007222 


013110 
010242 
000000 

013106 


010224 
000017 


000011 


013101 


000000 
000014 


000002 


003724 


000001 
000000 


PCHEX: 


10$: 


DKEXEC: 


mB C/P8 eo Se Se Ge Be Be Ge Fe Se Be Be 


om 
Ax 


30$: 


40$: 
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SEQ 81 


MACY11 30A(1052) O7-JUN-82 16:28 PAGE 81 
DX11-B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC) 


STOP DX, 


CLRB 


ABORT 


BIC 
INCB 


JMP 
-SBTTL 
EXECUTE 


DXSTPF#'D i STOP ON DATA TRANSFER DONE?(SD) 
STPDX , DISABLE DX 
ACEDE, SCHOCDT AB): QUE “END SEQ RESPONSE 
@DXBC , SRBYTC(DTAB) SAVE REMAINING BYTE COUNT 
SpaRER Trl 3WAS A PARITY E R OR SENSED? aoe 


; *NO PRO OCESS XT UMBLE TABLE 
#EQPCHK, SSENSE (DTABS :YES, SET EQUIP CHECK IN SENSE 
OOP’ BACK + PROCESS NEXT TT ENTRY 


SOMEONE WANTS TO INVESTIGATE 
DXSTPF CLEAR STOP FLAG 


CURRENT DX OPERATION 
UNRECOVERABLE ERROR OCCURRED 


#DXONLN!DXENB, aDXCs sDISABLE THE " 

DXABFL THE DX ABORT FLAG SO THE 
DX REGISTERS WILL BE PRINTED 

DXEXIT EXIT FROM INTERRUPT 

DX11-B ISR (SELECTOR CHANNEL COMMAND EXECUTION) 


NEXT COMMAND FOR THE DX 


CHTYPE sCHANNEL TYPE O=M 
SEX sSELECTOR CHANNEL EXEC 
MEX MULTIPLEXER EXEC 


SELECTOR CHANNEL EXECUTIVE 

SEX EXECUTES COMMANDS FOR THE DX TO A SELECTOR CHANNEL 

ON A SELECTOR CHANNEL A COMMAND WILL BE COMPLETED 
BEFORE ATTEMPTING TO EXECUTE A COMMAND ON ANOTHER 
DEVICE, ISS-DATA TRANSFER-ES. 

DATA TRANSFERS ARE COMPLETED IN ONE BURST 


SELDEV,DEV 2GET SEL DEV 
PC, SUDEV = UP DEV STATUS TABLE ADDR 
SCMD (DTAB) JOB TO DO? 


0$ ies. EXECUTE IT 
“+ el —_ COMMAND CHAINING SPECIFIED 


DXEXIT YES, WAIT FOR COMMAND 
Seema ccc 31S ATTENTION TO BE SENT? 


CONT 
#11, SCMD(DTAB) VES, SET UP TO SEND THE ATTENTION 
60$ HE READ MANUAL INPUT 


DEV EXT DEV 
DEV MAXDEV SHAVE WE TRIED THE HIGHEST DEVICE? 





SS 
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MAINDEC=11=CZDXI-C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 82 
CZDX1C.P11 07-JUN-82 16:21° DX11-B ISR (SELECTOR CHANNEL COMMAND EXECUTION) 












SEQ 82 


3794 006656 003402 BLE 50$ 

795 006660 012700 000001 MOV #1,DEV VES RESTART AT FIRST DEVICE 

796 006664 020037 013110 50$: CMP DEV, SELDEV :IS THIS WH ee IT ALL STARTED? 

797 006670 001345 BNE 10$ NOPE, TEST THIS DEVICE 

Te 006672 000137 010224 JMP DXEXIT TEXIT “- NO TASKS PENDING 

iad $ THERE IS A JOB TO DO, LETS DO IT 

3802 006676 116304 000000 60$: MOVB SCMD(DTAB),R4 ;COMMAND TO INDEX 

3803 006702 005304 DEC R4 SCALE TO . - ai 

3804 006704 006304 ASL R4 ;MAK E WORD ADDRESS 

3805 006706 010037 013110 MOV DEV, SELDEV ; SAVE CURRENT DEVICE ADDR 
006712 000174 006716 JMP @SCMDTB(R4) EXECUTE THE COMMAND 

3807 006716 00674 SCMDTB: .WORD SWRITE 31 = WRITE FULL BUFFER 

3808 006720 00703 WORD SRMI ig = READ MANUAL INPUT 

3809 006722 01005 -WORD ESEQ 33 = ENDING SEQUENCE 

3810 006724 010152 -WORD SENSCM 24 = SENSE COMMAND 

3811 006726 00674 WORD SWRITE 35 = WRITE ne mom ae 

3812 0067 007132 WORD SREAD 26 = READ FULL BUFFER 

3813 006732 01000 «WORD ERASCM 37 = ERASE COMMAND 

3814 0067 007762 -WORD CON 210 = CONTROL UNIT END 

3815 006736 007772 «WORD SATIN 311 = SEND ATTENTION TO 360 

3816 006740 007032 «WORD SSRMI 312 = READ SHORT MANUAL INPUT 


awh See 


LOSES RT ee ENE BP TS dncciahwiteinntontiipl ; 
é SEQ 83 


MAINDEC=11=CZDX1-C NEW DX11-B RESPONDER MACY11 30A(1052) 07=JUN-82 16:28 PAGE 83 

CZDXIC.P11 | O7=JUN-82 16:21 DX11-B ISR (SELECTOR CHANNEL COMMAND EXECUTION) 
3817 EETIIIT ISIE ee 
3818 3 
3819 ; COMMANDS SPECIFICALLY FOR THE SELECTOR CHANNEL 
3821 YE PTTTI OPE eee 
3822 
382 
3824 3 
3825 : WRITE COMMAND RECEIVED FROM 360 
3826 : PREPARE TO GET DATA FROM 360 
3827 ; BOTH WRITE AND URITE” CINE ADDRESS COME HERE 
3829 006742 016377 000006 003536 SwRITE: MOV SINBF(DTAB) ,@DXBA ;SET UP BUFFER ADDRESS 
3830 006750 163777 013116 003530 SUB PHYOFF,@DXBA § ;FOR VIRTUAL MEMORY == OFFSET FOR PHYSICAL ADDRESS 
3831 006756 013702 013122 MOV DEVCON,R2 ZCOMPUTE DEVICE ADDRESS 
3832 006762 060002 ADD DEV,R2 4 
3833 006764 110277 003510 MOVB  R2,aDXCA 
3834 006770 012777 177037 003512 MOV #-DISPS7-1,aDXBC;SET UP BYTE COUNT FOR MAX, WRITE LINE ADDRESS 
3835 006776 116363 000000 000001 MOVB SCND (DTAB)- SLCMD(DTAB) ;SET WRITE FLAG 
3836 007 105063 000002 CLRB §SSENSE (DTAB)  ;CLEAR SENSE BYTE 
3837 007010 110037 013102 MOVB DEV, DX act :SET DX ACTIVE FLAG 
3838 007014 005063 000014 CLR SRBYTC(DTAB) | :RESET REMAINING BYTE COUNT 
3839 007020 052777 000003 003454 BIS #DXWR, @DXCS ‘START TRANSFER 
3840 007026 000137 010224 JMP DXEXIT [RETURN FROM INTERRUPT 
3842 
384 : 
3844 : PERFORM READ MANUAL INPUT COMMANDS 
3846 007032 SRMI: 
3847 007032 105737 012544 SSRMI: TSTB  TSTTYP z1$_ TEST FOR FRIEND? 
3848 007036 001035 BNE SREAD :YES, TREAT ALL READS AS READ FULL BUFFER 
3849 007040 105063 000002 CLRB §SSENSE(DTAB) §:RESET THE SENSE BYTE 
3850 007044 105763 000017 TSTG  SRDRQ(DTAB) ‘WAS A READ REQUESTED? 
3851 007050 001002 BNE 10$ ‘YES, CONTINUE 
3852 007052 000137 010054 JMP ESEQ :NO, TREAT AS A NOP == END SEQ ONLY 
3853 007056 105063 000017 10$: CLRB  SRDROQ(DTAB) 
3854 007062 016377 000020 003416 MOV SMINS(DTAB) ,@DXBA ;SET UP STARTING ADDRESS 
3855 007070 016302 000010 MOV SOUTB(DTAB).R2 ;DETERMINE ENDING ADDRESS 
3856 007074 066302 000004 ADD SCURS (DTAB) .R2 
3857 007100 005302 DEC R2 
3858 007102 167702 003400 SUB @DXBA,R2 :COMPUTE BYTE COUNT 
3859 007106 100002 BPL 20$ Z INSURE VALID BYTE COUNT 
3860 007110 000137 010054 JMP ESEQ T ILLEGAL 
3861 007114 005402 20$: NEG R2 
3862 007116 010277 003366 MOV R2,aDXBC zSET UP DX*S BYTE COUNT 
3863 007122 163777 013116 003356 SUB PHYOFF,aDXBA § ;FOR MEMORY MANAGEMENT = OFFSET FOR PHY ADDRESS 
3864 007130 000411 BR SRD10 ‘START THE READ 
3866 
3867 ; 
3868 ; READ COMMAND RECEIVED FROM 360 
3869 ; PREPARE TO SEND DISP BUFFER TO 360 
3871 007132 016377 000010 003346 SREAD: MOV SOUTB(DTAB) ,@DXBA ;SET UP BUFFER ADDRESS 
3872 007140 163777 013116 003340 SUB PHYOFF,@DXBA § ;FOR MEMORY MANAGEMENT = OFFSET FOR PHY ADDRESS 
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SEQ 84 

MAINDEC=11=CZDXI=C NEW DX11-8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 84 
CZDXIC.P11 | O7=JUN-82 16:21 DX11=B ISR (SELECTOR CHANNEL COMMAND EXECUTION) 

3873 007146 012777 177040 003334 MOV #-DISPS7,aDXBC ;SET UP BYTE COUNT 

3874 007154 116363 909000 000001 SRD10: MOVB SCHD (TAB), SLCMD(DTAB) -SAVE CODE OF LAST COMMAND 

3875 007162 013702 013122 MOV DEVCON,R :COMPUTE DEVICE ADDRESS 

3876 007166 06000 ADD D v, Re 

3877 007170 110277 003304 MOVB 

3878 007174 105063 900002 CLRB SSENGCIDTAB) ZCLEAR SENSE eYTE 

3879 007200 110037 01310 MOVB DEV, DXACT SSET DX ACTIVE FLAG 

3880 007204 005063 000014 CLR SRBYTC(DTAB) §: RESET RERAINING. BYTE COUNT 

3881 007210 052777 000005 003264 BIS #DXRD, @DXCS SSTART TRANSFER 

3882 137 010224 JMP DXEXIT TURN FROM INTERRUPT 
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SEQ 85 
MAINDEC=11=CZDXI=C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16: 28 PAGE 85 
CZDXIC.P11 — O7=JUN-82 16:21 DX11=8 ISR (MULTIPLEXER CHANNEL COMMANDS) 
3885 .SBTTL DX11-B ISR (MULTIPLEXER CHANNEL COMMANDS) 
age : MEX== MULTIPLEXER CHANNEL EXECUTIVE 
3889 ; MEX EXECUTES COMMANDS FROM THE DX ON A MULTIPLEXER CHANNEL 
3891 : ON A MULTIPLEXER MULTIPLE DEVICE REQUESTS WILL BE 
389 : INTERLEAVED. THIS WILL PROHIBIT A TIME OUT TO OCCUR 
389 : IF A DEVICE IS NOT SERVICED UNTIL ALL OTHER DEVICES 
3894 ; BEFORE IT. 
3896 : DATA TRANSFERS ARE DONE IN 4 BYTE BLOCKS, SO AS TO NOT 
3897 : HOG THE CHANNEL 
3899 007222 105737 013106 MEX TST8 = CMDCHF z1S COMMAND CHAINING SPECIFIED? 
3900 007226 001402 B 10 :NO, TINUE 
3901 007230 000137 010224 JMP DXEXIT TYES, LEAVE DX FREE 
3902 007234 013700 013110 10$: MOV MDEV, DEV [GET LAST Device ADDR THAT HAD A COMMAND 
3903 007240 004737 010242 30$: JSR PC, SUDEV ‘COMPUTE ADDR OF DEV STAT TABLE 
007244 105763 000000 TSTB SCMD(DTAB) TANY JOB TO DO? 
3905 007250 001023 BNE 50$ :YES. EXECUTE IT 
3906 007252 126327 000017 000001 CMPB = SRDRO(DTAB).#1 31S ATTENTION REQUESTED? 
3907 007260 001004 BNE 4 ONT INUE 
3908 007262 112763 000011 000000 MOVE -#11,SCMD(DTAB) YE, QUEUE ATTENTION 
3909 007270 000413 BR 50$ [FOR THE READ MANUAL INPUT 
3911 : NO TASK PENDING FOR CURRENT DEVICE 
3912 : BUMP TO INTERROGATE NEXT DEVICE ON CONTROL UNIT 
3913 : THIS CODE WILL REPEAT SEQUENCES WHICH MAY HAVE RUN INTO 
3914 : A LOCKOUT CONDITION IN THE D 
3916 007272 005200 40s: INC DEV ZINCR TO NEXT DEVICE NUMBER 
3917 007274 120037 013101 CMPB  —s DEV, MAXDEV [WAS DEVICE NUMBER WRAPPED AROUND? 
3918 007300 003402 BLE 45$ [NO, SEE IF ALL DEVICES HAVE BEEN INTERROGATED 
3919 007302 012700 000001 MOV #1,DEV SYES, RESET THe DEVICE R 
3920 007306 020037 013110 45$: CMP DEV. MDEV NO 408 HERE, HAVE WE CHECKED ALL DEVICES? 
3921 007312 001352 BNE 30$ [NO, EXAMINE NEXT DEVICE 
392 007314 000137 010224 JMP DXEXIT ‘YES, EXIT FROM ISR 
3924 : THIS DEVICE HAS A JOB TO DO, EXECUTE IT 
3926 007320 116304 000000 50$:  MOVB = SCMD(DTAB).R4 COMMAND TO INDEX 
3927 007324 005304 DEC R4 TSCALE TO 0 = 1 
3928 007326 006304 ASL R4 [MAKE INTO WORD ADDRESS 
3929 007330 010037 013110 MOV DEV, MDEV [SAVE CURRENT DEVICE ADDRESS 
3930 007334 000174 007340 JMP aMCMDTB(R4) 3EXECUT E THE COMMAND 
3931 007340 007 MCMDTB: .WORD MWRITE :1 = WRITE FULL BUFFER 
3932 007342 007514 “WORD MRMI :2 = READ MANUAL INPUT 
3933 007344 010054 <WORD SEQ 73 = ENDING SEQUENCE 
3934 007346 010152 ;WORD SENSCM 74 = SENSE COMMAND 
3935 007350 007364 “WORD MWRITE :5 = UAITE. LINE ADDRESS 
3936 007352 007612 ;WORD MREAD 76 = READ FULL BUFFER 
3937 007354 010002 -WORD ERASCM 77 = ERA 
3938 007356 007762 “WORD  CONUNE 710 = CONT ROL UNIT END 
3939 007 007772 “WORD SATIN :11 = SEND ATTENTION TO 360 
3940 007362 007514 -WORD MSRMI 212 = READ SHORT MANUAL INPUT 





| ae SEQ 86 


MAINDEC=11-CZDXI=C NEW DX11-B RESPONDER MACY11 30A(1052) 07=JUN-82 16: 28 PAGE 86 

CZDXIC.P11 O7=JUN-82 16:21 DX11-B ISR (MULTIPLEXER CHANNEL COMMANDS 
a} PETTITT rrr ee 
3548 : COMMANDS SPECIFICALLY FOR THE MULTIPLEXER CHANNEL 
3945 TIT TELIA 
3946 3 
3947 : WRITE COMMAND RECEIVED FROM 360 
3948 : PREPARE TO GET 4 BYTES OF DATA FROM 360 
3369 ; NOTE=-BOTH WRITE AND WRITE LINE ADDR COME HERE 
3951 007364 005763 000014 MWRITE: TST SRBYTC(DTAB) =; WRITE IN PROGRESS? 
3952 007370 001011 BNE 10$ :YES, SEND OUT MORE DATA 
3953 007372 01636 000012 MOV SINBF (DTAB), SBUEACDTAB) | :SET UP BUFFER ADDRESS 
3954 007400 163763 013116 000012 SUB PHYOFF ,SBUFA(DTAB) ; FOR MEM MANG = OFFSET FOR PHY ADDRESS 
3955 007406 012763 000741 000014 MOV #DISPSZ+1 SRBYTC CDTAB) :SET UP BUFFER FOR MAX SIZE 
3956 007414 016377 000012 003064 10$: MOV SBUFA(DTAB) ,@DXBA ;OUTPUT BUFFER ADDR TO DX 
3957 007422 013702 013122 MOV DEVCON,R2 :COMPUTE DEVICE ADDRESS 
3958 007426 060002 ADD DEV,R2 
3959 007430 110277 003044 MOVB R2,aDXCA 
3960 007434 012777 177774 003046 MOV 4-4, aDXBC ZSTART BYTE COUNT 
3961 007442 026327 000014 000004 CMP SRBYTC(DTAB) #4 :1S LESS THEN 4 Bytes. LEFT? 
3962 007450 002005 BGE 2 =NO, START TRANSFE 
3963 007452 016302 000014 MOV SRBYTC(DTAB),.R2 :YES, USE REMAINING BYTE COUNT 
3964 007456 005402 NEG R2 
3965 007460 010277 003024 MOV R2,a DxBC 
3966 007464 105 000002 20$: CLRB  ‘SSEN aSEC DTAB) CLEAR SENSE BYTE 
3967 007470 116363 000000 000001 MOVB § SCMD(DTAB) ,SLCMD(DTAB) ;SET WRITE FLAG 
3968 007476 110037 013102 MOVB DEV, DXACT :SET ACTIVE FLAG 
3969 007502 152777 000003 002772 BISB #DXWR,aDXCS 3START THE TRANSFER 
3970 007510 000137 010224 JMP DXEXIT SRETURN FROM INTERRUPT 
3972 
3973 3 
tore é READ MANUAL INPUT COMMAND 
3976 ; THIS WILL TRANSFER ONLY THE DATA ENTERED ON THE SCREEN TO THE 360 
3978 007514 MRMI = ; 
3979 007514 105737 012544 MSRM]: TSTB TSTTYP sFRIEND OR 2848 DIAG? 
3980 007520 001034 BNE EAD [FRIEND == TREAT AS READ FULL BUFFER 
3981 007522 005763 000014 TST SRBYTC (DTAB) ZANY DATA LEFT TO TRANSFER? 
3 007526 001031 BNE MREAD BRANCH IF YES TO CONTINUE. 
3983 007530 105063 000002 CLRB = SSENSE (DTAB) ERESET THE SENSE BYTE 
3984 007534 105763 000017 TSTB § SRDRO(DTAB) S THE READ REQUESTED? 
3985 007540 001002 BNE 20$ ives. CONT INUE 
3986 007542 000137 010054 10$: § JMP ESEQ :NO, RETURN AN ENDING SEO RESP DE!CE 
3987 007546 105063 000017 20$:  CLRB $$ SRDRQ(DTAB) *CLEAR THE READ REQUEST 
3 007552 016363 000020 000012 MOV SMINS(DTAB) ,SBUFA(DTAB) ;SET UP THE ADDRESS OF THE DATA 
39829 007560 016302 000010 MOV SOUTB(DTAB) .R2 : COMPUTE THE BYTE COUN 
3990 007564 066302 ADD SCURS (DTAB) . *R2 SEND = 
3991 007570 005302 DEC 
3992 007572 166302 000012 SUB SSUFA(DTAB) -R2 ;COMPUTE THE BYTE COUNT 
3993 007576 100761 BMI 10$ NEGATIVE == SOMETHING IS WRONG 

007600 010263 000014 MOV R2-SRBYTC(DTAB) :SAVE FOR READ DRIVER 

3995 007604 163763 013116 000012 SUB PHYOFF ,SBUFA(DTAB) :FOR MEM MANAG = OFFSET FOR PHY ADDRESS 
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SEQ 87 


MAINDEC=11=CZDXI1-C NEW DX11-B RESPONDER MACY11 30A(1052) 07=JUN-82 ie: gs PAGE 87 | 
CZOXiC.P11 07-JUN-82 16:21 DX11-B8 ISR (MULTIPLEXER CHANNEL COMMANDS | 

paad4 : FALL THROUGH TO NORMAL READ BUFFER ROUTINE 

3999 

4000 

4001 $ 

400 : READ COMMAND RECEIVED FROM 360 

res 3 PREPARE TO SEND 4 BYTES OF DATA TO THE 360 

4005 007612 116363 000000 000001 MREAD: MOVB SCMD (DTAB) , SLCMD (DTAB) Fy CODE OF LAST COMMAND FOR DISPLAY CONTROL 

4006 0076 005763 000014 TST SRBYTC (DTAB) READ IN RESS? 

4007 007624 001011 BNE 10$ zYES, SEN > Our MORE DATA 

4008 007626 016363 000010 000012 MOV SOUTB(DTAB) ,SBUFA(DTAB) ;SET UP BUFFER ADDRESS 

4009 0076 163763 013116 000012 SUB PHYOFF ,SBUFA(DTAB) ;FOR MEM MANAG = OFFSET FOR PHY ADDRESS 

4010 007642 012763 000740 000014 MOV #DISPSZ,SRBYTC(DTAB) ;SET UP TOTAL ai COUNT 

4011 007650 016377 000012 002630 10S: MOV SBUFA(DTAB) ,@DXBA ;SEND BUFFER ADDR TO DX 

4012 007656 013702 013122 MOV seven COMPUTE DEVICE ADDR 

4013 007662 06000 ADD DEV,R2 

4014 007664 110277 002610 MOVB R2,aDXCA sOUTPUT THE DEVICE ADDRESS 

4015 007670 012777 177774 002612 MOV #~4 , aDXBC SOUTPUT THE BYTE COUNT 

4016 007676 026327 000014 000004 CMP SRBYTC(DTAB) 44 ;SEE IF REMAINING BYTE COUNT LESS THAN 4 

4017 007704 002005 BGE 

4018 007706 016302 000014 MOV SRBYTC(DTAB) ,R2 ;SET UP BYTE COUNT 

4019 007712 005402 NEG R2 

4020 007714 010277 002570 MOV R2,aDXxBC OUTPUT THE yA BYTE COUNT == LT 4 

4021 007720 105063 000002 20$: CLRB SSENSE (DTAB) sCLEAR SENSE AND SET DX ACTIVE FLAG 

1058 007724 110037 013102 MOVB DEV,DXACT SET DEVICE ACTIVE FLAG FOR SOFTWARE 

4024 : BEFORE TRANSMIT IS STARTED SET BUSY FLAG IN DX11 STATUS 

<o5e ; TABLE FOR DEVICE 

4027 007730 010002 MOV DEV,R2 ees ADDRESS OF SPW ENTRY 

4028 007732 063702 013122 ADD DEVCON,R2 : 

4029 007736 060202 ADD Re, 

4030 007740 063702 013126 ADD STSPW,R2 ADD IN SPW ce ADDRESS 

4031 007744 052712 000020 BIS #BSY,(R2) SET UNIT BUSY FLA 

4032 007750 152777 000005 002524 BISB #DXRD, @DXCS zSTART THE DX READING 


4033 007756 000137 010224 JMP DXEXIT 
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MACY11 30A(1052) O7=JUN-82 16:28 PAGE 88 
DX11-B ISR (MULTIPLEXER AND SELECTOR CHANNEL COMMANDS) 


-SBTTL OX11-B ISR (MULTIPLEXER AND SELECTOR CHANNEL COMMANDS) 


PRESENT CONTROL UNIT END TO CHANNEL 


CONUNE: BISB  #CUE,SSTAT(DTAB) ;PUT IN STATUS BYTE 
BR STOUT :OUTPUT TO CHANNEL 


: SEND THE ATTENTION BIT TO THE 360 

SATIN: BISB  #ATIN,SSTAT(DTAB) ;PUT IN STATUS BYTE 
BR STOUT ;OUTPUT TO THE 360 

; ERASE THE DISPLAY 

ERASCM: MOV SOUTB(DTAB),.R4 ;SET UP BEG OF DISPLAY BUFFER 
MOV #DISPSZ,R5 ‘SET UP COUNTER 
MOVB  #EBCDSP.R2 TSET BUFFER FILL FOR 2848 DIAG 
TSTB  ~—sTST'TYP 21S TEST BEING RUN FOR 2848 RESPONDE 
BEQ 10$ iVES. FILL BUFFER WITH EBCDIC SPACE 
MOVB  FILLCH,R2 USE CURRENT FILL CHARACTER 


10$:  MOVB  R2,(R45+ MOVE FILL CHARACTER TO BUFFER 
DEC RS [DECR COUNTER 
BNE 10$ ‘NOT DONE, DO NEXT CHAR 
CLR SCURS (DTAB) SRESET THE CURSOR 

CLRB §SSENSE(DTAB) =: CLEAR SENSE BYTE 

MOVB #CEDE,SCMD(DTAB): CHANGE COMMAND TO PRESENT END SEQ 


: FALL THROUGH TO PRESENT ENDING STATUS 
: PRESENT ENDING STATUS TO CHANNEL 
ESEQ: BISB  #CE!DE,SSTAT(DTAB) ;SET CH END + DEV END 


PRESENT STATUS TO CHANNEL 


THE STATUS BOTH PUT IN THE DX11-B SPW TABLE 
AND SENT TO THE CHANNEL. CONDITIONS CAN OCCUR WHICH 
on STATUS ENTRY TO THE CHANNEL TO BE 


Be Se Be Se Se Se Be Be 
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SEQ 89 
MAINDEC=11=CZDXI1=C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 89 
CZDXIC.P11 07=JUN-82 16:21 DX11-B ISR (MULTIPLEXER AND SELECTOR CHANNEL COMMANDS) 
4090 010062 013702 013122 STOUT: MOV DEVCON,R2 ZOUTPUT DEVICE ADDRESS 
4091 010066 06000 ADD ; 
4092 010070 110277 002404 MOVB R2,aDXCA 
4093 010074 132763 000002 000003 BITB #UCHK,SSTAT(DTAB) Is, THE UNIT CHECK BIT SET? 
4094 010102 001403 BEQ 10$ “NO, TRANSMIT THE STATUS 
4095 010104 112763 000002 000003 MOVB $ #UCHK,SSTAT(DTAB) ; oVES. THEN SEND omy UNIT CHECK 
4097 ; IF MULTIPLEXER CHANNEL 
4098 ; CLEAR ANY PENDING STATUS, IN SPW STATUS ENTRY 
£099 : (PROBABLY ‘BUSY’ 
4101 010112 105737 012540 10S: TSTB = CHTYPE ;SELECTOR CHANNEL? 
4102 010116 001004 BNE 20$ ZYES, DON'T CLEAR STATUS IN-SPW TABLE 
4103 010120 060202 ADD R2,R2 :COMPUTE ADDRESS oot SPW STATUS ENTRY 
4104 010122 063702 013126 ADD STSPW,R2 [OFFSET BY BASE OF SPW TABLE 
4105 010126 105012 CLRB ss (2) [CLEAR SPw STATUS ENTRY 
4107 ; OUTPUT THE STATUS TO THE CHANNEL 
4109 010130 116377 900003 002346 20$:  MOVB  SSTAT(DTAB),aDXOS OUTPUT STATUS TO CHANNEL 
4110 010136 152777 000007 002336 BISB  #DXST,aDXCS :PRESENT TO CHANNEL 
4177 070144 110037 Sette MOVE DEV. DXACT :SET DX ACTIVE FLAG 
112 010150 000425 BR DXEXIT SRETURN FROM INTERRUPT 
4114 
4115 : 
6116 ; SENSE COMMAND DESIRED BY 360 
4118 010152 012777 000002 002326 SENSCM: MOV #SSENSE, abXBA ;SET UP ADDRESS OF SENSE BYTE 
4119 010160 060377 002322 ADD DTAB,aD XBA 
4120 010164 163777 013116 002314 SUB PHYOFF ,aDXBA § ;FOR MEMORY MANAGEMENT = OFFSET FOR PHY ADDRESS 
4121 010172 013702 013122 MOV DEVCON,R2 [COMPUTE DEVICE ADDRESS 
4122 010176 060002 ADD EV,R2 
4123 010200 110277 002274 MOVB R2,aDXCA 
4124 010204 012777 177777 002276 MOV #~i ,aDXBC : TRANSFER 1 BYTE 
4125 010212 110037 013102 MOVB DEV, DXACT :SET DX ACTIVE FLAG 
4126 010216 052777 000005 002256 BIS #DXRD, aDXCS [START TRANSFER 
4128 
4129 : 
cin 3 EXIT FROM THE DX ISR 
DXEXIT: (SP)+,R5 ZRESTORE REGISTERS 
MO (SP) +.R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 


(SP)+,RO 
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SEQ 90 

MAINDEC=11=CZDXI=C NEW DX11-8 RESPONDER MACY11 30A(1052) O7-JUN~82 16:28 PAGE 90 
CZDXIC.P11  07=JUN-82 16:21 DX11-8 ISR (UTILITY SUBROUTINES) 

4139 .SBTTL DX11=8 ISR (UTILITY SUBROUTINES) 

14) : SET UP ADDR OF DEVICE STATUS TABLE 

4143 : CALLING SEQUENCE | 

4144 oe eeesese DEV 

4145 : jsr'”” Pc, SUDEV 

4146 ° eeeece RET URN 

4147 : R3 = ADDRESS OF DEVICE TABLE 

4149 : ONLY REGISTER R3 IS MODIFIED BY THIS SUBROUTINE 

§ 


4151 010242 013703 013076 gUDEV: MOV SDEVTB,DTAB 4 a DEV 1 


4152 010246 010146 MOV R1,-(SP) 3 SAVE 

4153 010250 010001 MOV DEV.R1 

4154 010252 005301 $UD10: DEC R1 DEC DEVICE NUMBER 

4155 010254 001403 BEQ SUDEX DONE, EXIT 

4156 010256 062703 002000 ADD #2000,DTAB zINCR TO — DEV TABLE 

4157 010262 000773 BR $UD10 TRY 

4158 010264 012601 SUDEX: MOV (SP)+,R1 RETURN 10 CALLER 

4159 010266 000207 RTS PC 

4160 

4161 

4162 : 

2ie7 : CLEAR DEVICE STATUS TABLE 

4165 : CALLING woos 

4166 > 0 0—tiéR eww R DEV 

4167 : JSR PC, CDEVST” 

4168 e eeesee TURN 

4169 : R3 = ng tay OF DEVICE TABLE 

4170 : a MY OLLOWING TABLE ENTRIES ARE CLEARED 

4172 ; SSTAT 

4173 : SBUFA 

4174 3 SRBYTC 

rhe ; SLCMD 

ore : ONLY REGISTER R3 IS AFFECTED BY THIS SUBROUTINE 

4179 010270 004737 010242 CDEVST: JSR PC,SUDEV SET UP ADDR OF peice STAT TABLE 

4180 010274 105063 000000 CLRB SCMD (DTAB) ;RESET CURRENT COMMAND ENT 

4181 010300 105063 000003 CLRB SSTAT (DTAB) :RESET DEVICE STATUS ENTRY 

4182 010304 005063 000012 CLR SBUF A(DTAB) RESET CURRENT BUFFER ADDRESS POINTER 

4183 010310 005063 000014 CLR SRBYTC (DTAB) RESET REMAINING BYTE a 
184 010314 105063 000001 CLRB SLCMD(DTAB) RESET LAST COMMAND ENT 

4185 010320 000207 RTS PC RETURN TO THE CALLER 


CSPWST -=- CLEAR SPW STATUS BYTE 


CALLING secret 
seeeeeeeDIAB (R35) POINTS TO CURRENT DEVICE STATUS TABLE 
spec TBEW cg) CONTAINS CURRENT DEVICE NUMBER 








Coeete Pia tn =< ney or Hh RESPONDER 


Hn 
105763 000016 
001007 
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MACY11 30A(1052) vane 16:28 PAGE 91 
DX11-B ISR (UTILITY SUBROUTINES) 


eeeeeeeeRETURN TO CALLER WITH DEVICE STATUS BYTE RESET 
ALL REGISTERS ARE PRESERVED ACCROSS THIS SUBROUTINE 


SEQ 91 


i 


SPWST: MOV R5,=(SP) 7 SAVE vied et — SUBROUTINE USAGE 
TST8 SONLF (DTAB) 31S DEVICE ON-LINE? 
BNE 10$ sNO, JUST EX XIT- 
MOV DEV.RS GET DEVICE NUMBER AND COMPUTE 
ADD DEVCON,RS 
_ ADD R5,R5 zADDRESS OF SPW STATUS BYTE 
ADD STSPW,RS 
CLRB (R5) RESET SPW STATUS BYTE 


MOV pha a RESTORE REGISTER 











aa 
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DX11-B ISR (UTILITY SUBROUTINE 


c 
z 


: TSTB CHTYPE 
BNE 5$ 


MUXEND == HANDLE DATA TRANSFER COMPLETIONS FOR MUX 


CALLING SEQUENCE 
hehe fameie CONTAINS THE ADDRESS OF THE DEVICE STATUS TABLE 


x 
seseeeeeRETURN C=BIT SET = MUX DATA TRANS DONE 
C-BIT RESET = SEL CHAN OR DATA TRANSFER NOT DONE 


NO REGISTERS ARE AFFECTED BY THIS SUBROUTINE 


SELECTOR OR MULTIPLEXER CHANNEL?? 
SELECTOR CHANNEL == EXIT 


MULTIPLEXER CHANNEL 


SUB #4, SRBYTC(DTAB) ;DECR REAMINING BYTE COUNT 
BGT 10$ 71F > 1, DATA TRANSFER NOT COMPLETE YET 


DATA TRANSFER COMPLETE ON MUX CHANNEL 

CLR SRBYTC (DTAB) ¢ INSURE REMAINING BYTE COUNT ZERO 

SEC sSET MUX Lage oh COMPLETE FLAG 
30$ ;GOTO COMMON EXIT 

DATA TRANSFER INCOMPLETE 

ts #4,SBUFA(DTAB) ;BUMP BUFFER ADDRESS 


sRESET FLAG TO INDICATE MUX CHAN NOT DONE 
RTS PC RETURN TO THE CALLER 


SEO 92. 


oz 
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SEQ 93 
MAINDEC=1 V=CZ0x1=C N NEY Dx11<8 RESPONDER MACY11 30A(1052) 07=JUN-82 16: 28 PAGE 93 
2DK1C.P11 16:21 DX11-B ISR (2260 DISPLAY CONTROL SUBROUTINE) 
4 39 -SBTTL DX11-B ISR (2260 DISPLAY CONTROL SUBROUTINE) 
41 : DISPLAY CONTROL ROUTINE 
rk; : THIS ROUTINE IS ENTERED AFTER DATA HAS BEEN 
44 ; RECEIVED FROM OR WRITTEN TO THE 360. 
46 : DISCTL THEN FORMATS THE DATA TO CONFORM T 
208 ; A 2260 DISPLAY SCREEN If THE 2848 DIAG IS Cue 
4269 : CALLING SEQUENCE 
4250 : .eeseeeeDTAB(R3) POINTS TO CURRENT DEVICE STATUS TABLE 
4251 : jsr PC ,DISCTL 
$$2 2 eeeeeseee TURN 
4254 : THIS SUBROUTINE IS ONLY USED To COMPLETELY EMULATE 
4255 : A 2260°S DISPLAY. THIS ALLOWS THIS PROGRAM TO BE USED 
4296 : WITH THE 2848 RESPONDER DIAGNOSTIC. 
4258 ; NOTE == THE REMAINING BYTE COUNT (SRBYTC) IS USED T 
4259 ; INDICATE THE NUMBER OF CHARACTERS RECEIVED FROM THE CHANNEL. 
4260 : IT 1§ SET UP AT THE COMPLETION OF 
4261 : TRANSFER TO THE NUMBER OF CHARACTERS REMAINING IN 
426 ; THE DX BYTE COUNT REGISTER. 
4264 ; NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
4266 010414 010046 DISCTL: MOV RO,=(SP) ZSAVE REGSITERS USED BY SUBROUTINE 
4267 010416 010146 MOV R1. = ($6) 
4268 010420 010246 MOV R2, =< 
4269 010422 126327 000001 000002 CMPB SL CMD<DTAB) #CMRMI ;WAS IT A READ MANUAL INPUT COMMAND? 
4270 010430 001535 BEQ DRMI sIF' YES, PERFORM READ MANUAL iNPUT PROCEEDURE 
4271 010432 126327 000001 000012 CMPB = SLCMD (DTAB) ACMSREI :WAS IT A SHORT READ MANAUL INPUT? 
4272 010440 001542 BEQ IF YES, EXIT 
4273 010442 126327 000001 000006 CMPB  —- SLCMD (DTAB) sacnnEan :WAS IT A READ FULL BUFFER COMMAND? 
427% 010450 001522 BEQ DREAD SYES, RESET CURSOR ON READ FULL BUFFER 
4276 ; 
4277 : THE COMMAND MUST HAVE BEEN A 360 WRITE 
4278 : DETERMINE TYPE OF TEST BEING RUN 
4280 010452 105737 012544 : TSTB  —sTSTTYP :TYPE OF TEST 0 = 2848 1 = FRIEND 
4281 010456 001102 BNE DISFRN FRIEND 
4285 : FORMAT DISPLAY ALA 2260 
4285 010460 016301 000006 . MOV SINBF(DTAB),R1 ;:GET ADDR OF START OF INPUT 
4286 010464 126327 000001 000005 CMPB = SLCMD(DTAB).ACMWTLA ;WAS LAST CMD A WRITE LINE ADDRESS? 
4287 010472 001016 BNE 20$ :NO, NORMAL WRITE 
4289 : WRITE LINE ADDRESS COMMAND 
4290 : FIRST BYTE OF DATA BLOCK IS CURSOR LINE ADDRESS 
4292 010474 005263 000014 . INC SRBYTC(DTAB) =; INCR BYTE COUNT 
4293 010500 112102 MOVB = (R1)#.R [GET LINE NUMBER 
4294 010502 042702 177760 BIC #177760,R2 [GET ONLY LINE NUMBER 
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SEQ 94 
| MAINDEC=11-CZDXI1=C NEW DX11-B RESPONDER MACY11 30A(1052) 07=JUN-82 16:28 PAGE 94 
| CZDKIC.P11  O7=JUN-82 16:21 DX11-8 ISR (2260 DISPLAY CONTROL SUBROUTINE) 
4 5 010506 005063 000004 CLR SCURS (DTAB) : 
é 7 ; COMPUTE CURSOR ADDRESS CURS = LINE # * LINESIZE 
4299 010512 005702 10$: TST R2 :DONE? 
4300 010514 001405 BEQ 208 MORE DATA INTO DISPLAY BUF 
4301 010516 062763 000050 000004 ADD #LINSZ, scurs(DTAb)e Sink TO NEXT LINE 
4 : 010524 005302 DEC R2 ;DECR LINE COUNT 
4308 010526 771 BR 10$ 
4305 ; MOVE DATA RECEIVED INTO DISPLAY BUFFER 
4306 ; THE DAT RECEIVED MANY BE AN Y CONF IGUR 
4307 : OF EIGHT t Bit S, 0 = 255. TO NEMUL MULATE A 2000 DISPLAY 
4308 : THE RECEIVED CHARACTER IS ‘FOLDED’ 0 ONE 
4309 : THE 64 CHARACTERS USED BY THE 2260. TAs FOLDING 
4310 : IS PERFORMED BY TRANSLATING THE CHARACTER TO ASCII 
431 ; AND THEN BACK TO EBCDIC. 
4313 010530 016302 000010 30$: MOV SOUTB(DTAB),R2 ;COMPUTE DISPLAY ADDR 
4314 010534 066302 000004 ADD SCURS (DT 
4315 010540 026327 000014 000741 CMP SRBYTC(DTAB) -#D1SPSZ+1 ALL CHARS PROCESSED? 
4316 010546 103077 BHIS DIS 
4317 010550 005263 000014 INC SRBYTC(DTAB) C INCREMENT THE BYTE C 
4318 010554 112100 MOVB = (R1) +, RO iGET THE NEXT BYTE RECEIVED AND SUMP POINTER 
4319 010556 042700 177400 BIC #177660,R0 [STRIP SIGN EXTENSION BITS CIF 
4320 010562 116000 011766 MOVB EBCDTB(RO),RO :FOLD CHARACTER INTO ASCII CHARACTER SET 
4321 010566 042700 177400 BIC #177400,R0 SSTRIP SIGN EXTENSION BITS, IF ANY 
4322 010572 162700 000040 SUB #40,R0 ZSCALE INTO ASCII TABLE RANG 
4323 010576 116012 012366 MOVB ATOETB(RO),(R2) : COMPLETE FOLDING BY RETRANSLATING TO EBCDIC 
4324 010602 005263 000004 INC SCURS (DTABS SINCR CURSOR P 
4325 010606 121227 000025 CMPB =s-« (R2),WNEWLNE = :WAS A NEW CINE * SPECIFIED? 
4326 010612 001015 BNE 60$ 
4328 : NEW LINE COMMAND = ADVANCE CURSOR TO BEG OF NEW LINE 
4329 ; CURSOR = (CURSOR/LINESIZE + 1) * LINESIZE. 
4331 010614 005002 CLR R2 ICLEAR LINE CTR 
4332 010616 00520 40$: INC R2 *INCR LINE CTR 
4333 010620 162763 000050 000004 SUB #LINSZ, SCURS (DTAB) 
4334 010626 003373 BGT 40$ sKEEP DIVIDING 
4335 010630 005063 000004 CLR SCURS (DTAB) “CLEAR CURSOR 
4336 010634 062763 000050 000004 50$: ADD #LINSZ, SCURS(DTAB) 
4337 010642 00530 DEC R2 
4338 010644 00137 BNE 50$ 
oer? ; CHECK FOR WRAP AROUND 
4342 010646 026327 000004 000740 60$: CMP SCURS(DTAB) ,ADISPSZ ;CURSOR OVERFLOW DISPLAY _BUFFER? 
4343 010654 002725 BLT 20$ sCURSOR OK, PROCESS NEXT 
4344 010656 005063 000004 CLR SCURS (DTAB) SOVERFLOW, RESTART CURSOR’ At *oos 0 
4345 010662 000722 BR 20$ 


: FRIEND TEST, if Ate 4 | BUFFERS DON'T COPY 
: INPUT TO OUTPUT BUFFER ‘| 
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SEQ 95 
MACY11 30A(1052) O7=JUN-82 16:28 PAGE 95 


DX11-B ISR (2260 DISPLAY CONTROL SUBROUTINE) 


DISFRN: TSTB ‘10BUF 
BNE D 


BREAD: 


RMI : 


DSRMI : 


DISCEX: 


3 SEPARATE it: BUFFERS? 
ISCEX YES, DON’T COPY INPUT TO OUTPUT 
MOV SINBF(DTAB),R1 ;SET UP INPUT BUFFER yet 
MOV SOUTB(DTAB) .R2 SET UP OUTPUT BUFFER ADDRESS 
MOV #DISPSZ/2,R0 ;TRANSFER THE INPUT BUFFER TO THE OUTPUT BUFFER 


PERFORM COPY 


MOV (R1)+, (R2)+ s INPUT TO OUTPUT 

DEC RO TARE WE DONE? 

BNE 10$ [NO, CONTINUE COP 

BR DISCEX PREPARE TO RETURN TO CALLER 


A READ rat BUFFER WAS PERFORMED 
THE CURSOR MUST BE RESET TO THE BEGINNING OF THE SCREEN 


CLR SCURS (DTAB) sRESET THE CURSOR 
BR DISCEX zAND PREPARE TO EXIT 


A READ MANUAL INPUT WAS PERFORMED 
TO EMULATE THE 2260 SCREEN THE START OF MANUAL INPUT CHARCATER 
MUST BE DELETED FROM THE SCREEN 


MOV SMINS(DTAB),R1 ;GET THE Po oo ADDRESS 

DEC R1 :DECREMENT TO THE SMI CHAR 

MOVB #EBCDSP, (R1) :BLANK OUT THE CHARACTER 

SUB SOUTB(DTAB),R1 ;AND COMPUTE THE CURSOR POSITiON 
MOV R1,SCURS(DTAB) 


A SHORT READ MANUAL INPUT WAS PERFORMED 
NO ACTION REQUIRED BY DISPLAY CONTROL ROUTINE 


RESTORE REGISTERS AND RETURN TO CALLER 


MOV (SP)+,R2 sRESTORE SAVED REGISTERS 
MOV (SP)+,R1 
94 (SP)+,RO 


RTS PC RE TURN TO THE CALLER 
“SBTTL TELETYPE (CONSOLE) INPUT ISR 


TELETYPE INPUT HANDLER (ISR) 
CONTROL PASSES HERE ON A TELETYPE INPUT INTERRUPT 
DATA IS INPUT FROM THE CONTROL CONSOLE AND STORED INTO 


on 
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4407 ; THE TELETYPE INPUT BUFFER (TBUF). WHEN ALL THE DATA IS 

4408 : EN TERED, THE OPERATOR HITS A C/R TO END THE LINE, THEN 

4409 : AN ACTIVE FLAG IS SET AND THE COMMAND EXECUTED BY THE 

4410 : SYSTEM. 

441 : THE FOLLOWING CONTROL FUNCTIONS ARE AVAILABLE FOR 

reht ; OPERATOR CONVENIENCE. 

4415 : C/R = LINE DELIMETER 

4416 : = DELETE LAST CHARACTER 

4417 : = (BACKSLASH SHIFT L) = DELETE LAST LINE 

4418 : (CONTROL=C) = ABORT CURRENT COMMAND -- FOR DUMP 

4419 : (RUB OUT) = DELETE LAST CHARACTER 

4420 : (CTL“R) = REENTER ALL PARAMETERS VRG-2-F EB-82 

4421 : (CTL=U) = DELETE CURRENT INPUT LINE 

4422 : (ettes> = TEMPORARILY STOP OUTPUT TO CONSOLE 

aags : (CTL=Q) = RESUME OUTPUT TO CONSOLE 

4425 3 NOTE == A CONTROL Q MUST BE ISSUED AFTER A CONTROL S TO 

4426 ; RESUME CONSOLE OUTPUT 

4428 010756 010046 TKIN: MOV RO, ~($P) ZSAVE REGISTERS 

4429 010760 010146 MOV R1.=(SP) 

4430 010762 017700 001502 MOV aTkB,RO 3GET TELE CHARACTER 

4431 010766 042700 177600 BIC #177600, RO S INSURE 7-BIT ASCII 

4432 010772 013701 012754 MOV [BUFFER PTR 

4433 010776 020027 000022 CMP RO. aCTL. R 3zCONTROL -R ? VRG-2=F EB-82 

4434 011002 001002 BNE 3$° 

4435 011004 000137 001002 JMP RSTART TYES, ALLOW OPERATOR TO REENTER ALL PARAMETERS 

4436 011010 020027 00002 3S: CMP RO,ACTL.S ZCONTROL-S , TEMPORALILY STOP CONSOLE OUTPUT? 

4437 011014 001003 BNE =NO, CONTINUE 

4438 011016 105237 013105 INCB. —sCT'TYSTP ves, ser FLAG TO STOP TTY QuiPuT 

4439 011022 000 BR 00$ AND EXIT FROM INTERRUP 

4440 011024 020027 000021 6$: CMP RO,ACTL.O : CONTROL. RESUME CONSOLE vOUTPUT? 

4441 011030 001010 BNE CONTINUE 

4442 011032 105037 013105 CLRB  =s«*TTYSTP ves. RESET CONSOLE STOP FLAG 

4443 011036 105737 013103 TSTB  PCTR : CHECK TO INSURE QUTPUT TO RESUME 

4444 011042 001473 BEQ 100$ : NO OUTPUT =~ EX 

4445 011044 004737 011264 JSR PC PROUT RESTART CONSOLE OUTPUT 

4446 011050 000470 BR 100$ 3 AND” EXIT FROM THE INTERRUPT 

4447 011052 020027 000003 10$: CMP RO,ACTL.C [COMMAND ABORT == CTL C? 

4448 011056 001011 BNE 20$ ; 

4449 011060 105737 013065 TSTB —«TCMACT is A COMMAND ACTIVE? 

4450 011064 001457 BEQ 90$ TREAT AS A DELETE LAST LINE 

4451 011066 105237 013066 INCB  TCMDAB ives, SET ABORT FLAG 

4452 011072 012701 012652 MOV #TBUF RI *SET UP BUFFER POINTER 

4453 011076 000137 011232 JMP 00$ TEXIT 

4454 011102 105737 013065 20$: TSTB  =TCMACT [TELE CMD CURRENTLY ACTIVE? 

4455 011106 001051 BNE 100$ [YES, IGNORE CHARACTER 

4456 011110 110021 MOVB RO, (R1)+ SSTORE CHAR INTO BUFFER, - INC PTR 

4457. 011112 020027 000015 CMP RO.ACR 3LINE DELLIMETER == C/R 

4458 011116 001005 BNE 0 

4459 011120 012701 012652 MOV #TBUF RI RESET BUFFER PTR 

4460 011124 105237 013065 INCB —sCTCMACT SET COMMAND ACTIVE FLAG 

4461 011130 000440 BR 100$ DONE PRINT THE LINE DELIMITER 

4462 011132 020027 000177 30$: CMP RO, ARUBOUT tA RUBOUT? 
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PONDER MACY11 30A(1052) 
TELETYPE (CONSOLE) INPUT 


40$ 


#_,RO 
RO,ACTL.U 
50$ 


#°\,RO 
PC,.PCHAR 
RO,#° 


ATBUF 


(SP)+, *RO 


60 
=(R1),=(R1) 


SEQ 97 


re 16:28 PAGE 97 


3 NOPE 
sYES, TREAT AS A DELETE LAST CHARACTER 


‘CONTR ROL“U? (DELETE CURRENT INPUT LINE) 
YES, TREAT AS DELETE LAST LINE (BACKSLASH) 
TECHO THE CHARCTER BACK 
;DELETE LAST CHAR == BACK ARROW? 

YES. DECR POINTER BY 2 

BEYOND BEG OF THE BUFFER? 
:VES, RESET TO BEG OF BUFFER 
;DELETE CUR LINE == BACK SLASH? 
YES. RESET BUFFER PTR 

TNEW LINE FOR NEW C 
;WERE “LIMITS EXCEEDED? 


;THEY WERE == TREAT AS A LINE ABORT 


sSAVE BUFFER PTR 
sRESTORE REGISTERS + EXIT 


MAINDEC=11-CZDxXI-C NEW +h RESPONDER MACY11 30A(1052) | eel 16:28 PAGE 98 
CZDx1C.P11 07=JUN-82 16:21 TELETYPE (CONSOLE) OUTPUT I 


-SBTTL TELETYPE (CONSOLE) OUTPUT ISR 
TELETYPE OUTPUT DRIVER (ISR) == PRINT 
CONTROL PASSES HERE ON A TELE OUT INTERRUPT 





SEQ 98 


44 105037 013064 ISR: CLRB  PIUFL :CLEAR PRINTER BUSY FLAG 

50 105737 013103 TSTB = PCTR SANY MORE DATA TO PRINT? 

54 bois BEQ 10$ =NO, EXIT 

36 004737 011264 JSR PC PROUT [OUTPUT ANOTHER CHAR 
000002 10$: RTI 


—— on 


SEQ 99 
MAINDEC=11=CZDXI=C NEW DX11-8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 99 
CZDXIC.P11 | O7=JUN-82 16:21 TELETYPE OUTPUT HANDLING SUBROUTINES 
4497 .SBTTL TELETYPE OUTPUT HANDLING SUBROUTINES 
4499 : SEND DATA TO PRINTER, IF NOT BUSY 
4501 : CALLING SEQUENCE 
4502 ; JSR PC PROUT 
sear ° weatittilien ne 
4505 : IF TELETYPE OUTPUT IS CURRENTLY IN PROGRESS OR HAS BEEN SUSPENDED BY A CONTROL - 
4506 : CONTROL IS RE TURNED IMMEDIATELY WITH NO ACTION 
4507 : BEING INITIATED. 
4508 : IF TELETYPE OUTPUT IS NOT CURRENTLY IN PROGRESS 
4509 : THE PRINTER BUSY FLAG IS SET AND A CHARACTER IS SENT TO THE TERMINAL 
451) : NO REGSISTERS ARE MODIFIED BY THIS SUBROUTINE 
4513 011264 105737 013064 PROUT: TSTB  PIUFL 31S IT BUSY? 
4514 011270 001023 BNE 0$ iY 
4515 011272 105737 013105 TSTB =«TTYSTP SHAS. CONSOLE OUTPUT BEEN SUSPENDED? 
4516 011276 001020 BNE 20$ YES, RETURN IMMEDIAT ELY TO CALLER 
4517 011300 105237 INCB PIUFL 'NO, SET BUSY FLAG 
4518 011304 105337 013103 DECB = PCTR :DECR CHAR COUNTER 
4519 011310 117777 001544 001156 MOVB aPrPTR, aTPB ‘OUTPUT NEXT CHAR 
4520 011316 005237 013060 INC PTR ZINCR PRINT FETCH POINTER 
4521 011322 023727 013060 013060 CMP PEPTR. #PBFE [TIME TO WRAP AROUND? 
4522 011330 001003 BNE 0$ [NO, EXIT 
4523 011332 012737 012756 013060 MOV #PBFS,PFPTR TYES, RESTORE TO START OF BUFFER 
4524 011340 000207 20$: RTS PC ;RETURN TO CALLER 
4526 
4527 ; 
4528 : PRINT A CR/LF 
4529 ; 
4530 ; CALLING SEQUENCE 
4531 : JSR PC, CRLF 
rt} ° eeeeeeee 
4534 : NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
4536 011342 010246 CRLF: MOV R2,-(SP) ZSAVE THE R2 REGISTER 
4537 011344 012702 105215 MOV #105215,R2 :D0 A CRLF 
4538 011350 004737 011360 JSR PC ,PRINT2 [PRINT IT 
4539 011354 012602 MOV (SP)+,R2 SRESTORE THE R2 REGISTER 
4540 011356 000207 RTS PC SRETURN TO THE CALLER 
454 
454 ; 
4544 : PRINT 2 CHARACTERS ON THE TTY 
4546 : CALLING SEQUENCE 
4567 : eect CONTAINS DATA TO BE PRINTED (2 BYTES) 
4548 ; JSR’ PC PRINT 
4349 : wee ee eRETUR 
451 ; NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
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4553 011360 010237 011374 PRINT2: MO R2,P2BF 

4554 011364 137 011504 WSR R1,MESG 

4555 011370 011374 WORD P2BF 

4556 011372 000207 RTS PC 

4557 011374 P2BF:  .WORD 9 

4558 011376 377 377 -BYTE 77,377 

4559 

4560 

4561 3 

$36¢ : PRINT 1 CHARACTER 

456 3 

4564 3 CALLING SEQUENCE 

4565 : eseeeeeeRO CONTAINS THE CHARACTER TO BE PRINTED 

4566 3 JSR CH 

rts t4 3 weeeeeeeRETURN WITH THE DATA IN THE PRINT BUFFER 

$369 ; NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 

4571 011400 110037 011414 PCHAR: MOVB RO,P1BF 

4572 011404 004137 011504 JSR R1,MESG 

4573 011410 011414 .WOR P1BF 

4574 011412 000207 RTS PC RETURN TO THE CALLER 

011414 000 PIBF: .BYTE 0,377 





SEQ 100 





SEQ 101 
MAINDEC=11-CZDXI=C NEW DX11-B RESPONDER MACY11 30A(1052) OJ 82 16:28 PAGE 101 
CZDX1C.P11 07-JUN-82 16:21 TELETYPE OUTPUT HANDLING SUBROUTINE 

4576 : 
4977 : PRMESG PRINT A CHARACTER STRING 
4579 : CALLING se 
4580 ; seeseeeeRe CONTAINS THE STARTING ADDRESS OF THE MESSAGE 
4581 ; JSR PC ,PRMESG 
t258 e eeeeee URN 
ret : NOTE == MESSAGE MUST BE TERMINATED BY A 377 
4586 : NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE | 
4587 011416 010246 PRMESG: MOV ,7(SP) zSAVE REGS { 
4588 011420 010346 V R3,-(SP) { 
4589 011422 013703 013062 MOV PPPTR,R3 3GET PRINT OUTPUT POINTER 
4590 011426 121227 000377 10$: CMPB (R2) #377 sEND OF MESSAGE? { 
4591 011432 001417 BEQ 40$ : EXIT ( 
4592 011434 112223 MOVB (R2)+, (R3)+ [NO MOVE NEXT CHAR TO PRINT BUFFER ( 
4593 011436 105237 013103 INCB = PCTR zINCR CHAR COUNTER { 
4594 011442 020327 013060 CMP R3,A4PBFE 3AT END OF BUFFER? { 
4595 011446 001002 BNE 20$ ( 
4596 011450 012703 012756 MOV #PBFS.R3 :YES, WRAP AROUND TO BEG OF BUFFER | 
4597 011454 737 011264 gos: JSR PC,PROUT CAN WE START PRINT? { 
4598 011460 123737 013103 013142 30$: CMPB = PCTR, PMAX 31S PRINT BUFFER FULL? { 
4599 011466 001774 BEQ 30$ i¥ES, WAIT TILL ROOM AVAILABLE { 
4600 011470 756 BR T NEXT CHAR { 
4601 011472 010337 013062 40S: MOV R3,PPPTR tEXIT, RESTORE PUT PTR { 
4602 011476 012603 MOV (SP)+,R3 SRESTORE REGS ( 
4603 011500 012602 MOV (SP)+,R2 ( 
460% 011502 000207 RTS PC ;RETURN TO THE CALLER ! 
ago? 
4608 ; MESG == PRINT A CHARACTER STRING ON THE SYSTEM CONSOLE 
4610 : CALLING SEQUENCE f 
4611 : JSR R1,MESG t 
4612 : ADDRESS OF START OF MESSAGE { 
anit 3 eeeeeseee URN 
4615 : NOTE == MESSAGE MUST BE TERMINATED BY A 377 
4617 ; NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
4619 011504 010246 HESG: MoV R2,-(SP) sSAVE REGISTER ( 
4620 011506 012102 MOV (R1)+,R2 3GET ADDRESS OF MESSAGE AND BUMP FOR RETURN 
4621 011510 004737 011416 JSR PC ,PRMESG [MORE MESSAGE PROCESSING t 
4622 011514 012602 MOV (SP) +,R2 TRESTORE SOILED REGISTER y 
rr 011516 000201 RTS RI [RETURN TO THE CALLER 
4625 f 
4626 : f 
rr 4 ; INMES PRINT A CHARACTER STRING 
4629 : CALLING SEQUENCE ( 
4630 : JSR R1 


“BORD appréss OF MESSAGE 
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463 : ee eee eRETURN 

4634 : INMES IS USED FOR ROUTINES AT THE ISR LEVEL AND DOES 
4635 ; NOT CH ECK K TO SEE IF DATA WILL BE OVERLAYED IN 
£636 : TELEBUFFER 

4638 : NOTE == THE MESSAGE MUST BE TERMINATED BY A 377 

4640 : NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 

4642 011520 010246 INMES: MOV R2,-(SP) 

4643 011522 113746 013142 MOVB = PMAX, = (SP) sCHEAT, SAVE PMAX 

4644 011526 112737 000377 013142 MOVB #377.PMAX ZAND MAKE VERY LARGE 

4645 011534 012102 MOV (R1)4+,R2 

4646 011536 004737 011416 JSR PC ,PRMESG ZUSE STANDARD MESSAGE PROCESSOR 
4647 011542 112637 013142 MOVB = (SP) +, PMAX SRESTORE PRINT MAX 

4648 011546 012602 MOV (SP)+,R2 

4649 011550 000201 RTS R1 :RETURN TO CALLER 





SEQ 102 








SEQ 103 


MAINDEC=11-CZDXI-C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 103 
CZDX1C.P11 07=JUN-82 16:21 UTILITY SUBROUTINES (CONVERT OCTAL OR HEX TO BINARY) 
1620 ~SBTTL UTILITY SUBROUTINES (CONVERT OCTAL OR HEX TO BINARY) 
ret : COTB == CONVERT ASCII OCTAL TO BINARY (COTB) 
4654 ; CALLING SEQUENCE 
4655 ; eseeeeR2_= CHAR ADDRESS OF FIRST CHARCTER TO BE CONVERTED 
4656 : JSR PC,COT 
1628 e eeeecee 
4659 ; UPON RETURN THE ey REGISTERS WILL CONTAIN 
4660 : R2 = NEXT CHAR POSITION AFTER LAST ILLG CHAR 
4661 ; = BINARY RESULT OF CONVERSION 
466 : R4 = (BITS 0-7) FIRST NON-OCTAL CHARACTER 
<ee7 ; RS = NUMBER OF CHARACTERS CONVERTED 
4665 011552 COTB: CLR R3 
4666 011554 CLR R5 
4667 011556 112204 10$: MOVB (R2)+,R4 3GET NEXT CHAR 
4668 011560 120427 000067 CMPB RGA? sCHAR GT 7? 
4669 011564 00301 BGT 20 zYES EXIT 
4670 011566 120427 000060 CMPB R4,#°0 sCHAR LT 0? 
4671 011572 002410 BLT 20 :YES, OF 
4672 011574 042704 177770 BIC #177770,R4 2SAVE_ONLY 3 BITS 
4673 011600 006303 ASL R3 sSHIFT OLD RESULT BY 8 
4674 011602 006303 ASL R3 
4675 011604 006303 ASL R3 
4676 011606 060403 ADD R4,R3 sADD IN NEW NUMBER 
4677 011610 005205 INC R5 :INCR CHAR COUNT 
4678 011612 000761 BR 10$ GET NEXT CHAR 
4679 011614 000207 20$: RTS PC RETURN TO CALLER 








SEQ 104 

MAINDEC=11=CZDXI=C NEW DX11<B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 104 
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4680 ; 

4681 : CHTB == CONVERT ASCII HEX TO BINARY 

4683 ; CALLING SEQUENCE 

4684 ; seseeeR2 = ADDRESS OF FIRST CHARCTER TO BE CONVERTED 

4685 ; JSR PC, CHTB 

4686 -).) aeeeean RET 

4687 : UPON RETURN 

4688 : R2 = NEXT CHAR POSITION NOT CONVERTED 

4689 : R3 = BINARY RESULT 

4690 : R4 = (BITS 0-7) FIRST NON HEX CHARACTER 

469) : R5 = NUMBER OF CHARACTERS CONVERTED 

4693 011616 005003 CHTB: CLR R3 

4694 011620 005005 CLR 

4695 011622 112204 10$ MOVB = (R2)+,R4 :GET THE FIRST CHARACTER 

4696 011624 162704 000060 SUB #°0,R4 SCALE RELATIVE TO ASCII ZERO 

4697 011630 100422 BMI 30$ :NOT A VALID HEX CHAR 

4698 011632 020427 000012 CMP R4,#10. [1S RESULT STILL GT 10? 

4699 011636 002410 BLT 208 ZYES, WE HAVE A VALID HEX DIGIT 

4700 011640 162704 000007 SUB #7,R4 

4701 011644 020427 000020 CMP R4.#16. :I1S IT A LETTER? 

4702 011650 002012 BGE 30 :NO, INVALID CHAR 

4703 011652 020427 000012 CMP R4,#10. SAND GT 10 

4704 011656 002407 BLT 30$ ZNO, ILLEGAL CHAR 

4705 011660 006303 20$: ASL R3 MAKE ROOM FOR NEW ENTRY 

4706 011662 006303 ASL R3 

4707 011664 006303 ASL R3 

4708 011666 006303 ASL R3 

4709 011670 060403 ADD R4,R3 s INSERT lew ENTRY 

4710 011672 005205 INC RS TINCR R COUNT 

4711 011674 000752 BR 10$ ‘AND CONV VERT NEXT CHAR 

4712 011676 005302 30$: DEC R2 [GET THE ILLEGAL CHARCTER 

4713 011700 112204 MOVB = (R2)+, RG SAND PUT IT R4 

4714 011702 000207 RTS PC :1TS TIME TO RETURN TO THE CALLER 















git SEQ 105 


11=CZ0x1-¢ NEW DX11-B RESPONDER MACY11 30A(1052) 07-JUN-82 16:28 PAGE 105 
1 07=JUN-82 16:21 PROCESSOR ERROR TRAP HANDLERS 

4715 -SBTTL PROCESSOR ERROR TRAP HANDLERS ' 
471 : TRAP OUT ROUTINES 
4718 : 1 
4719 
47 

4721 ; L 
rt ¢ : MEMORY TIME OUT ROUTINE : 
4724 011706 012702 014235 MTO: MOV #PMTO,R2 3SET UP ADDRESS OF THE PRINT ROUTINE | l 
4725 011710 000404 BR TOUTRT :TO0 GENERALIZED TRAP OUT ROUTINE : 
4727 \ 
4728 : \ 
C44 : MEMORY MANAGEMENT TRAP OUT ROUTINE : 
4731 011712 177572 MMERR: CLR * SRO ZCLEAR THE MEMORY MANAGEMENT BIT \ 
473¢ 011716 012701 014261 MOV #PMMERR,R1 7SET UP ADDRES OF ERROR MESSAGE \ 
4733 011722 TOUTRT: RESET 3CLEAR ALL DEVICES \ 
4734 011724 105037 01 LRB- Ss PIUFL :CLEAR PRINT IN USE FLAG 
4735 011730 005077 177776 CLR PSW SLOWER PROCESSOR STATUS TO ALLOW INTERRUPTS TO CUM ’ 
4736 011734 004737 01141 JSR PC,PRMESG SPRINT THE ERROR MESSAGE . 
4737 011740 105737 01310 10$:  TSTB  PCTR [1S PRINTING DONE? 

4738 011744 001375 BNE 10$ 

4739 011746 000000 HALT zYES, HALT 

4760 011750 000137 001000 JMP START 

47% 

474 : 

4766 ; INVALID UNIBUS ADDRESS TRAP 

4746 011754 022626 UNTRP: CMP (SP)+, (SP)+ ;POP THE PUSH STACK 

4747 011756 005037 177776 CLR PSW ZCLEAR THE PROCESSOR STATUS WORD 

4748 011762 000137 001206 JMP NEWPRM TASK OPERATOR TO REENTER THE DATA 
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SEQ 106 

MAINDEC=11=CZDXI=C NEW DX11<8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 106 
CZDXIC.P11 | 07=JUN-82 16:21 CODE CONVERSION TABLES 

4749 .SBTTL CODE CONVERSION TABLES 

4751 : EBCDIC TO ASCII CODE CONVERSION TABLE 

475 ; THIS TABLE FOLDS ALL INPUT INTO A 64 CHARACTER SET 

4754 ; NOTE == BACKARROW IS USED TO DENOTE A NEWLINE 

4756 011766 EBcDTB: 

4757 011766 040440 041502 042504 <ASCII / ABCDEFGHI*.<(+!/ 200 = OF 

4758 011774 0463506 044510 027136 

4759 012002 024074 02045 

4760 012006 0450466 046113 057515 ASCII "'SJKLM_OPOQR_$*) ; J" 310 = 1F 

4761 012014 050117 051121 022137 

4762 012022 024452 056475 

476 012026 027455 052123 053125 ASCII "=/STUVWXYZ"', 20>?° 120 = 2F 

4764 012034 054127 055131 026042 

4765 012042 055445 037476 

4766 012046 030460 031462 032464 ASCII '0123456789:#a'=\"" 330 - 3F 

4767 012054 033466 034470 021472 

4768 012062 023500 056075 

4769 012 040440 041502 042504 ASCII / ABCDEFGHI*.<(+!/ 340 = 4F 

4770 012074 043506 044510 027136 

4771 012102 024074 020453 * 

4772 012106 045046 046113 047115 ASCII “'BJKLMNOPOR_$*) :J 350 = SF 

4773 012114 050117 051121 022137 

4774 012122 024452 056473 

4775 012126 027455 052123 053125 ASCII *=/STUVWXYZ"', 20>?" 760 = 6F 

4776 012136 054127 055131 026042 

4777 012142 055445 037476 

4778 012146 030460 031462 032464 ASCII "0123456789:#a"=\"" 370 = 7F 

4779 012154 033466 034470 021472 

4780 012162 023500 056075 

4781 012166 040440 041502 042504 -ASCII / ABCDEFGHI*.<(+!/ 380 - 8F 

4782 012174 043506 044510 027136 

4783 012202 024074 020453 

4784 012206 045046 046113 047115 ASCII ""SJKLMNOPOR_$*) ; J" 390 - OF 

4785 012214 050117 051121 022137 

4786 012222 026452 056473 , 

4787 012226 027455 052123 053125 -ASCII  "=/STUVWXYZ"', 20>?" yA0 = AF 

4788 012234 054127 055131 026042 

4789 012242 055445 037476 

4790 012246 030460 031462 032464 ASCII °0123456789:#a"=\"" :B0 - BF 

4791 012254 033466 034470 021472 

4792 012262 023500 056075 

4793 012266 040440 041502 042504 ASCII / ABCDEFGHI*.<(+!/ :CO - CF 

4794 012274 043506 044510 027136 

4795 012302 024074 020453 

4796 012306 045066 046113 047115 ASCII “'@JKLMNOPOQR_$*); J" :D0 = OF 

4797 012314 050117 051121 022137 

4798 O1¢322 024452 056473 

4799 01 306 02745 052125 053125 ASCII *=/STUVWXYZ"*, 20>?" 7E0 - EF 

4800 012334 054127 055131 026042 

4801 012342 055445 037476 

4802 012346 030460 031462 032464 ASCII 0123456789: #a"=\"" FO = FF 

4803 012354 033466 034470 021472 

4804 012362 023500 056075 


a 
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=B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 107 
1 CODE CONVERSION TABLES 








SEQ 107 
MAINDEC=11-CZDXI-C NE 
CZDX1C.P11 07-JUN-8 


Dx11 
16:2 


ve 


4805 : 

tae : ASCII TO EBCDIC CONVERSION TABLE 

4808 012366 100 117 152 ATOETB: .BYTE  100,117,152,173,133,154,120,175 :240-247 
4809 012371 173 133 154 

4810 012374 120 175 

4811 012376 115 135 134 eBYTE = 115, 135,134,116, 153,140,113,141 3250-257 
4812 012401 118 153 140 

4813 012404 11 141 

4814 012406 360 361 $08 -BYTE  360,361,362,363,364,365,366,367 ;260-267 
4815 012411 363 $3 36 

4816 012414 366 67 

4817 012616 370 371 172 -BYTE 370,371,172,136,114,176,156,157 ;270-277 
4818 012421 136 114 176 

4819 012424 156 157 

820 012426 174 301 302 BYTE § 174,301,302,303,304,305,306,307 ;300-307 
4821 012431 303 304 305 

4822 012434 306 307 

4823 0124 310 311 321 «BYTE  310,311,321,322,323,324,325,326 ;310-317 
4824 012441 322 323 324 

4825 012444 325 326 

4826 012446 327 330 331 -BYTE 327,330,331,342,343,344,345,346 ;320,327 
4827 012451 342 343 344 

4828 012454 345 346 
4829 012456 347 350 351 eBYTE § 347,350,351,155,177,137,112,025 ;330-337 
4830 012461 155 177 137 
4831 012464 112 025 

rts -SBTTL PROGRAM CONSTANTS AND VARIABLES 

rit) : CONSOLE UNIBUS ADDRESS CONSTANTS 

4836 012466 177560 TKS: -WORD 177560 sKEYBOARD CONTROL STATUS REGISTER 
4837 012470 177562 TKB: WORD 177562 sKEYBOARD DATA BUFFER 
4838 012472 177564 TPS: WORD 177564 sPRINTER STATUS/CONTROL REGISTER 
rs 44 012474 177566 TPB: WORD 177566 zPRINTER DATA BUFFER 
4841 
“843 

re} : DX REGISTERS = ADDRESS GENERATED BY INITIALIZATION 
4846 012476 000000 DXDS: .WORD 0 sDEVICE STATUS == TT1 
4847 012500 000000 DXCA: .WORD 0 : AND ADDRESS =~ TT2 
4848 012502 000000 DXCS: .WORD 0 sCONTROL UNIT STATUS 
4849 012504 000000 DxXOS: .WORD 0 sOFFSET AND STATUS 

4850 012506 000000 DXBA: . 0 2BUS ADDRESS 

4851 012510 000000 DXBC: .WORD 0 2BYTE COUNT 

4852 012512 000000 DXMO: . 0 sMAINTANCE OUT 

4853 012514 000000 DXMI: .WORD 0 sMAINTANCE IN 

4854 012516 000000 DxCB: . 0 CONTROL BITS 

4855 012520 000000 DXND: WORD 0 zNPR DATA 

4856 Oi2S522 000000 DXES1: .WOR 0 sEXTRA SIGNALS 

4857 012524 000000 DXMOB: .WORD 0 sBUFFERED BUS OUT 

012526 000000 DXES2: .WORD 0 sEXTRA SIGNALS 
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MAINDEC=11=CZDXI-C NEW DX11-B RESPONDER MACY11 30A(1052) lie 16:28 PAGE 108 
CZDXIC.P11 07-JUN-82 16:21 PROGRAM CONSTANTS AND VARIABLE 





SEQ 108 


4861 ; 
rt 4 3 CONFIGURATION CONSTANTS 
4864 012530 000000 UNADDR: .WORD 0 SUNIBUS ADDRESS 
4865 012532 000000 VECTAD: .WORD 0 70x X VECTOR ADDRESS 
4866 012534 000000 SDEV: «WORD 0 sSTARTING DEV NUMBER 
4867 012536 000000 EDEV: 0 sENDING DEV NUMBER 
4868 012540 000 CHTYPE: .BYTE 0 3 CHANNEL TYPE 0 = MPX = 1 = SEL 
4869 012541 000 MMRESP: .BYTE 0 MORY MANAGEMENT 0 = NO - 1 = YES 
4870 012542 BUFREL: . 0 SBUEFER RELOCATION core 
4871 012544 000 TSTTYP: .BYTE 0 sTEST TYPE 0 = ere A - wr 
4872 012545 000 IOBUF: .BYTE 0 i SEPERATE 1/0 BUFFE R Os “NO = = YES 
4873 012546 FILLCH: .BYTE 0 cath CHARACTER 
4874 012547 000 CONEND: .BYTE 0 TEX XTRA 
4875 
4876 
4877 : 
4878 3 SYSTEM PUSH STACK 
4879 s 
4880 012650 -=.+100 
4881 012650 SSTACK = , 
4882 
4883 
4884 3 
tees 3 SYSTEM VARIABLES 
tose : THE FOLLOWING VARIABLES ARE RESET UPON START-UP 
4889 012650 000000 VSTRT: .WORD 0O DUMMY 
48 012652 TBUF = sSTART OF TELETYPE INPUT BUFFER 
4891 012752 -=.+100 
4892 012752 000000 TBUFE: .WORD 0 sEND OF reuters INPUT BUFFER 
4893 012754 000000 TPTR -WORD 0 TELE IN 
4894 012756 000000 PBF S eWORD 0O sSTART OF PRINT BUFFER 
4895 013060 -=.+100 
48 013060 PBFE = . sEND OF PRINT ates 
4897 013060 000000 PFPTR: .WORD 0 *PRINT FETCH 
4898 013062 000000 PPPTR: .WORD 0 ‘PRINT PUT PIR 
4899 013064 000 PIUFL: .BYTE 0 :PRINTER IN USE FLAG 
013065 000 TCMACT: .BYTE 0 TELE COMMAND ACTIVE FLAG 0 = NON-ACT 
4901 013066 000 TCMDAB: .BYTE 0 ;TEL COMMAN T 1 = ABORT 
4902 013067 000 LINECT: .BYTE 0 SLINE CTR = CHARS / LINE 
4903 013070 000 -BYT 0 sWORK LOC 
4904 013071 000 1 BY 0 sWORK LOC 
4905 013072 000000 TTPTR: . 0 ; TUMBLE TABLE “~ 
4906 013074 000000 TTADDR: .WORD 0 7BEG OF TUMBLE TABLE 
4907 013076 000000 SDEVTB: .WOR 0 i Bg OF DEVICE TABLES 
4908 013100 000 DXSTPF: .BYTE 0 X STOP FLA 
4909 013101 000 MAXDEV: .BYTE 0 SRIGNEST ey #1-8 
4910 013102 DXACT: .BYTE 0O :DXACTI VE FLAG 
4911 013103 000 PCTR: -BYTE O PRINT BUFFER COUNTER 
4912 013104 000 DXABFL: .BYTE 0 *DX ABORT FLAG 0 = NO ABORT, 1 = ABORT 
ai? 013105 000 TTYSTP: ee 0 sCONSOLE OUTPUT STOP FLAG rane OUTPUT; 1 = NO OUTPUT 
4915 013106 000000 CMDCHF: .WORD 0 ;COMMAND CHAIN FLAG 
4916 013110 000000 MDEV: -WORD O DEV # IN MPXR EXEC 
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SEQ 109 
W~CZ0x1~¢ N NEW DX11-B RESPONDER MACY11 30A(1052) 07=JUN-82 16:28 PAGE 109 
16:21 PROGRAM CONSTANTS AND VARIABLES 
4917 013110 SELDEV = MDEV :DEV # IN SEL EXEC 
4918 013112 000000 PBUFA: .WORD 0 :PHYSICAL BUFF Abbr - IN ,000°S 
4919 013114 000000 VBUFA: .WORD 0 [VIRTUAL BUFF ADDR = IN ,000°S 
4920 013116 000000 PHYOFF: .WORD 0 [PHY OFFSET FOR MEMORY MANAGEMENT 
4921 913120 000000 CDEV: .WORD 0 + CURRENT Dx DEVICE == INTER SERVICE ROUTINE 
4922 013122 000000 DEVCON: .WORD 0 [DEVICE ADDED TO THE DEVICE NUMBER = STARTING DEV NUMB - 
492 013126 000000 XADDR: .WORD 0 TEXTENDED ADDRESS BITS FOR THE DX CONTROL REGISTER <= IN 
4924 013126 000000 STSPW: WORD 0 [START OF THE PSW TABLE 
4925 013130 000000 DSTOFF: .WORD 0 [OFFSET TO THE DST TABLE 
4926 013132 000000 SADDR: .WORD 0 STELETYPE COMMAND STARTING BUFFER ADDRESS 
4927 013134 000000 EADDR: .WORD 0 S TELETYPE COMMAND ENDING BUFFER ADDRESS 
4928 013136 000000 DMPADR: .WORD 0 [POINTER TO DUMP ROUTINE CURRENTLY BEING UTILIZED BY TEL 
4929 013140 000000 VEND:  .WORD 0 
4930 
1933 
4933 : THE FOLLOWING VARIABLES ARE NOT RESET ON START-UP 
4935 013142 000102 PMAX: .WORD PBFE-PBFS :SIZE OF PRINT BUFFER 
4936 013144 000000 FTIMFL: .WORD 0 sFIRST TIME FLAG 
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SEQ 110 
MAINDEC=11=CZDX1=C NEW DX11-B8 RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 110 
CZDXIC.P11 O7=JUN-82 16:21 MESSAGES 
4937 .SBTTL MESSAGES 
4938 “NLIST BEX 
; SYSTEM MESSAGES 
013146 215 212 STMSG: .BYTE 215,212 
013150 055103 054104 026511 “ASCII /CZDK1-C NEW DX17-8 RESPONDER/ 
013205 377 377 “BYTE 7,377 
013207 215 212 CTRMSG: .BYTE 215.212 
013211 116 052117 035105 -ASCII /NOTE: CONTROL P HAS BEEN CHANGED TO CONTROL R / 
013267 377 “BYTE 377 
013270 215 212 UNMSG: .BYTE 215,212 
013272 047125 041111 051525 sASCII /UNIBUS ADDRESS -OCTAL- : / 
01332 377 “BYTE 377 
013324 215 212 VECTMS: .BYTE 215,212 
013326 047111 042524 051122 ASCII /INTERRUPT VECTOR ADDRESS -OCTAL= : / 
013371 377 BYTE 377 
013372 215 212 DEVMES: .BYTE 215,212 
013374 042504 044526 042503 “ASCII “DEVICE ADDRESSES =HEX= (XX,XX): / 
013434 377 -BYTE 377 
013436 EVEN 
013436 215 212 CHTYMS: .BYTE 215,212 
013440 044103 047101 042516 ~ASCII /CHANNEL TYPE (MOR S): / 
013467 377 BYTE 377 
013470 215 212 MMMES: .BYTE 215,212 
013472 042515 047515 054522 -ASCII /MEMORY MANAGEMENT (Y OR N): / 
013526 377 -BYTE 377 
013530 EVEN 
013530 215 212 BFREMS: .BYTE 215,212 
013532 052502 043106 051105 -ASCII /BUFFER RELOCATION, IF SPECIFIED - IN EVEN ,000°S -OCTAL=- : / 
013625 377 -BYTE 377 
013626 215 212 TESTMS: .BYTE 215,212 
013630 051106 042511 042116 -ASCII /FRIEND (F) OR 2848 DIAG(D): / 
013664 377 <BYTE 377 
013666 SEVEN 
013666 215 212 FIOMS: .BYTE 215,212 
013670 042523 040520 040522 -ASCII /SEPARATE 1-0 BUFFERS (Y OR N): / 
013727 377 “BYTE 377 
013730 215 212 FILLMS: .BYTE 215,212 
013732 052517 050124 052125 -ASCII /OUTPUT BUFFER FILL CHARACTER -HEX= : / 
013777 377 BYTE 377 
014000 207 207 215 NXMMSG: .BYTE 207,207,215,212 
014006 047516 020116 054105 -ASCII /NON EX-MEM ERROR/ 
014024 215 212 377 -BYTE 215,212,377 
014030 EVEN 
014030 207 207 215 PARMES: .BYTE 207,207,215,212 
014034 040520 044522 054524 "ASCII /PARITY ERROR/ 
014050 212 215 377 -BYTE 212,215,377 
014054 EVEN 
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SEQ 111 
MAINDEC=11=CZDXI=C NEW DX11<B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 111 
CZDX1C.P11 | O7=JUN-82 16:21 MESSAGES 
014054 207 207 215 ILLMES: .BYTE 207,207,215,212 
014060 046111 042514 040507 “ASCII ILLEGAL DEVICE NUMBER/ 
014105 212 315 377 “BYTE 212,215 
014110 052503 051122 047105 STPMES: .ASCII /CURRENT DEVICE NUMBER <- / 
014141 377 BYTE 377 
014142 207 2 215 INVLDC: .BYTE 207,207,215,212 
014146 047111 040526 044514 ;ASCII /INVALID DX COMMAND/ 
014170 one 377 -BYTE 212,215,377 
014174 020040 047516 046440 PNOMM: ASCII / NO MEMORY MANAGEMENT AVAILABLE/ 
014234 377 : 377 
014235 315 07 PMTO: .BY 215,212,207,207 
014241 115 046505 051117 “ASCII /MEMORY TIME OUT/ 
014260 377 : 377 
014261 315 212 207 PMMERR: .BYTE 215,212,207,207 
014265 115 046505 051117 “ASCII /MEMORY MANAGEMENT ERROR/ 
014314 377 “BYTE 377 
014316 EVEN 
014316 215 212 RNMESG: .BYTE 215,212 
014320 054523 052123 046505 ASCII /SYSTEM INITIALIZED, TYPE "'R'’ TO ENABLE DX/ 
014371 377 “BYTE 377 
014372 015 012 HELPMS: .BYTE CR,LF 
014374 054104 030461 041055 <ASCII /DX11=B 2848 EMULATOR TEST PACKAGE = OPERATIONAL INFORMATION/ 
014467 015 012 “BYTE CR,LF 
014471 015 012 “BYTE CR.LF 
014473 104 026440 020055 “ASCII /D’== DUMP COMMAND/<CR><LF> — 
014516 020040 020040 020040 “ASCII / DTT.C DUMP TUMBLE TABLE IN CODE “C''/<CR><LF> 
014576 020040 020040 020040 “ASCII / DIN: CXX DUMP INPUT BUFFER FOR DEVICE XX IN CODE "C''/<CR><LF> 
014674 020040 020040 020040 “ASCII / DOT.C.XX DUMP OUTPUT BUFFER FOR DEVICE XX IN CODE "‘C’'/<CR><LF> 
014773 105 026440 020055 “ASCII /E == ENABLE beVICE ON DX/<CR><LF> 
015025 040 020060 020040 “ASCII / EXX ENABLE DEVICE XX/<CRD<LF> 
015070 020106 026455 043 “ASCII /F == FILL BUFFER COMMAND/<CR><LF> 
015122 020040 020040 020040 “ASCII / FIN,HH,XX FILL INPUT MOOFFER ON DEV XX WITH HH/<CR><LF> 
015210 020040 020040 0200 “ASCII / FOT-HH-XX FILL OUTPUT BUFFER ON DEV XX WITH HH/<CR><LF> 
015277 110 026440 020055 “ASCII /H == HELP COMMAND/<CR><L 
015322 020040 020040 020040 “ASCII / THIS TEXT/<CROCLD. 
015344 020113 026455 045440 “ASCII /K == KILL A DEVICE ON THE DX/<CR><LF> 
015402 020040 020040 020040 “ASCII / KXX KILL DEVICE XX/<CR><LF> 
01544 122 026440 020055 “ASCII /R == ENABLE DX (RUN) /<CR><LF> 
015471 040 020040 020040 “ASCII / R TEST/<CRO<LF> 
015524 020123 026455 042040 “ASCII /S == DISABLE Dx (SHOP Jecao aes 
015554 020040 020040 020040 “ASCII / S STOP IMMEDIATELY/<CR><LF> 
015617 040 020040 020040 “ASCII / SD STOP AFTER NEXT DATA TRANSFER/<CR><LF> 
015677 040 020060 020040 ASCII / SE STOP AFTER NEXT ENDING SEQUENCE/<CR><LF> 
015761 040 020060 020040 “ASCII / SI Stop ON NEXT SEL SEQ (1SS)/<CR><LF> 
016036 020040 020040 020040 “ASCII / SP STOP ON NEXT PARITY ERROR/<CR><LF> 
016112 005015 044127 051105 ASCII <CR><LF>/WHERE : /<CR><LF> 
016124 020040 020040 041442 -ASCII /  ‘"C’' IS CODE FORMAT 0 = OCTAL/<CR><LF> 
016172 020040 020040 020040 “ASCII / A = ASCII/<CR><LF> 
016240 020040 020040 020040 “ASCII / E = EBCDIC/<CR><LF> 
016307 040 020040 040 “ASCII / H = HEX/<CR><LF> 
016353 040 020060 021040 “ASCII / XX" IS Dx=11 DEVICE NUMBER IN HEX/<CR><LF> 
016423 040 020040 040 “ASCII / HH" HEX CHARATTER/<CR><LF><LF> 
016461 103 047117 047523 “ASCII /CONSOLE CONTROL CHARACTERS/<CR><LF> 







MAINDEC-11-CZDXI-C NEW DX11-8 RESPONDER 
CZDX1C.P11 07-JUN-82 16:21 MESSAGES 


016515 103 046124 041455 ASCII 
016557 103 046124 050455 ASCII 
016654 052103 026514 ogo ee ASCII 
016743 103 6124 051455 ASCII 
017022 052103 026514 020125 ASCII 
017070 052522 +3 052125 ASCII 
017137 015 01 012 -BYTE 
002551 HELPLN = 
017143 215 212 TOOC: .BYTE 
017145 124 047517 041440 ASCII 
017201 377 ett 


S 
S 
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SEQ 112 


MACY11 30A(1052) O7=JUN-82 16:28 PAGE 112 


/CTL=C (*C) ABORT CURRENT COMMAND/<CR><LF> 

/CTL=@ (*Q) RESUME OUTPUT AFTER TEMPORARILY STOPPING BY (“S)/<CRD><LF> 
/CTL“R (*R) REQUESTS THE REENTRY OF CONTROL PARAMETERS/<CR><LF> ;;VRG-2 
/CTL=S (*S) TEMPORARILY STOP OUTPUT TO CONSOLE/<CR><LF> 

/CTL“U_(*U) DELETE CURRENT INPUT LINE/<CR><LF> 

/RUBOUT == DELETE LAST CHARACTER INPUT/<CR><LF> 

wf aad 


5,212 
cT00 CLOSE TO 200000 BOUNDARY/ 
BEX 


wns no 
NA 


| 39 
SEQ 113 
MAINDEC=11-CZDXI-C NEW DXx1 RESPOND MACY11 30A(1052) O7=JUN-82 16:28 PAGE 114 


DxX11-8 ER 
CZDX1C.P11 07-JUN-82 16:21 CROSS REFERENCE TABLE == USER SYMBOLS 
ACCESS 004062 2713 9874 
ASCDMP 004650 ¢633 1$9" 
ATOETB 012 103 4323 48084 
TIN = poeg $033 4052 
BFREMS 013530 330 49384 
SY = 00002 20984 4031 
BSYEN = 004 20734 2765 
BUFREL 012542 2357* 2430 2432" 2433 2434 48704 
T= 21094 3698 
BYSS = 000400 20534 
CDEV 013120 2821 57* 49218 
CDEVST 010270 2745 031 3055 3522 3555 3576 3611 41798 
= 000010 20994 2603 4079 
CEDE = 000003 20204 3577 3740 4070 
CERR 003040 27024 = 2741 2800 2867 2992 3080 3281 3361 
CHEND = 000040 20564 3508 
CHENDS= 001000 20524 
CHIS = 000200 20544 3505 
CHTB 011616 2267 e6e8 2930 3353 46934 
CHTYMS 013436 2285 49384 
CHTYPE 012540 2283* 2291* 3767 4101 4220 48684 
CMDCHF 013106 2754* 3543" 3559" 3581 3583*  3614* 3709 3711* 3785 3899 4915# 
CMDCHN= 000004 20594 3612 
CMDREJ= 000001 20614 
EAD= 000006 20394 4273 
CMRMI = 000002 20374 4269 
CMSRMI= 000012 20408 4271 
= 000001 20364 
CMWTLA= 000005 0384 4286 
CONEND 012547 48744 
7762 3814 3938 40454 
COT 011552 2641 2987 006 3268 3290 46654 
= 15 19764 2212 2235 2274 2332 2654 2790 3011 3096 4457 4938 
CRLF 011342 2195 2198 2674 2818 3171 3190 3225 4477 4536« 
CSPWST 010322 2746 3523 3556 3573 3602 3660 41998 
TL.C = 3 1979# 4447 
CTL.Q@ = 000021 19804 4440 
CTL.R = 000022 19814 4433 
CTL.S = 000023 19824 4436 
CTL.U = 000025 19834 4465 
CTRMSG 013207 2200 4 49384 
CUBUSY= 000400 20754 3544 
CUE = 00004 20974 4045 
CUEND = 000020 20574 3511 
DEVCON. 013122 sacge 305 $053 3058 3831 3875 3957 = 4012 4028 4090 4121 4203 4922 
ad # 
DEVMES 013372 2257 =. 4938 # 
DISCEX 010746 4316 4353 4363 4370 4396" 
DISCTL 010414 3605 rt ¢74 
DISFRN 010664 4281 43524 
DISPSZ= 000740 eee" ash 3082 3092 3318 3331 3530 3834 3873 3955 4010 4060 4315 
DMPADR 013136 2868+ 886 903 4928¢ 
DONE = 000200 2076# 29 458 


DREAD 010716 4274 4369" 
DRMI 010724 4370 43798 
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3840 


3738 
3293* 
4381 
2494 


3986 
2812 


2931 


49364 
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3314 





O7-JUN-82 16:28 PAGE 115 


3882 


3752s 
3317* 


2544 
40794 
2832 


2947 


33534 
3327 


3901 


49084 
3318s 


4867# 


2894 


3534 


3337 


3721* 


3956s 
4020* 


2830* 


3922 


3330* 


2914 


4064 


3736* 


4011* 
4124s 


2831* 


3970 


3331* 


2950 


48738 


3837* 


4118* 
48514 
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4033 


49278 
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3968* 
4120* 
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SEQ 115 
MAINDEC=11=CZDXI-C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 116 
CZDXIC.P11 07-JUN-82 16:21 CROSS REFERENCE TABLE == USER SYMBOLS 
GLIMIT 005062 $833 929 32674 
GLMIN 005204 274 3124 
005244 3528 3254 
GLMTT 005154 27 3004 
GLOCT 005124 3270 2878 
004772 $oge 32264 
P 004016 2721 29598 
HELPLN= 002551 2960 49384 
HELPMS 014372 2959 = 49384 
XDMP 0047 2861 76620 
LMES 014054 3475 49384 
INFDSC= 004 20504 3493 
INHEX 002636 2256 2400 26264 
IT 002040 2189 2372 2388 2390 2402 24128 
INITIO 002404 25344 2536 
S 011520 3474 3591 3645 3677 4642” 
INOCT 002644 2209 $658 2284 2312 2329 2367 2386 26418 
T 004342 2723 0754 
5 002650 2627 26424 
INTREQ= 000100 21084 3690 
INVLDC 014142 3678 49384 
F 012545 2385* 2393* 4352 48724 
ISSREJ= 000010 20584 3618 
LL 004300 2725 30544 
KILLEX 004336 30624 
KISARO= 172340 19674 2445 
KISAR7= 172356 19684 2456 
KISDRO= 172300 19694 2446 
= 000012 1977# 4938 
LINECT 013067 2680* 3169 3172* 8 3173* 4902# 
LINSZ = 000050 20274 2029 4301 4333 4336 
L 005376 3388 34194 3512 3545 3560 3584 3639 3712 3745 
V 013101 2547* 2576 2751 3357 3463 3540 3793 3917 = 49094 
MCMDTB 007340 3930 39314 
EV 013110 2762+ 902 3920 3929 49164 4917 
MESG 011504 2196 2199 = 2301 2348 2594 2819 4554 4572 46198 
007222 3769 99 
MMERR 011712 2165 47314 
013470 313 9384 
MMRESP 012541 2311* 2319% 2342 435 48694 
MMSRO = 177572 19704 321* 2460"  4731* 
MREAD 007612 3936 980 3982 40054 
MRMI_ = 007514 3932 97 
MSRMI 007514 3940 39794 
MTO 011704 163 2412 4724m 
MUXEND 010354 722 3737 42204 
MWRITE 007364 3931 3935 39514 
NEWLNE= 000025 202 4325 
001206 22078 2215 2217 2219 2220 4748 
NEWP10 001472 $§3 22834 2290 
NEWP20 001716 2331 2357# 
NOLIN = 000014 0284 2029 
NOP = 000003 20224 3 
NXM = 040000 Seon" 96 
014000 592 9384 


NXMMSG 4 
OCTDMP 004702 2826 = 2864 2996 31904 
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49354 


3174 
4736 
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4935 
4518* 


48974 
3954 


4538 


4735* 


4593" 4598 473749118 
3995 4009 4120-49208 

45530 

4747 

2908" 2909* 29418 2963 2993* 299% 
$317, $329 $830 fosern 
3995s 4008" 4009" 4011 4182" 4 
3740 3783 3790" ««$802—=—«SBRSSCCRR 
3092 «3113* 3527" +3856 = 39 

Tus ities {See Test. OO 
2548 3354 «3461. 48660 
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SEQ 117 
MAINDEC=11=CZDXI=C NEW DX11-B RESPONDER MACY11 30A(1052) O7=JUN-82 16:28 PAGE 118 
CZOXIC.P11 07-JUN-82 16:21 CROSS REFERENCE TABLE == USER SYMBOLS 
SINBF = 000006 20014 g567* 568* 3316 3829 3953 94285) = 4354 
SLCMD = 000001 19974 3603 609* 3835" 38742 3967* 4005" 4184% 4269 4271 4273s 4286 
SMI = 000112 20254 3089 
SMINS = 000020 20074 2769 3090*  3526% 3854 3988 4379 
SONLF = 000016 20054 3038*  3056* 3685 4200 
SOUTB = 000010 20028 2569 2570* 3087 3329 3529 3855 3871 3989 4008 4059 4313 4355 
SPACE = 000040 19784 3098 3102 
SRBYTC= 000014 20044 3741*%  3838* 3880" 3951 3955 3961 3963 = 3981 3994 4006 4010* 4016 
4018 4183* 4225% 4230% 4292% 4315 4317* 

SRDRQ = 000017 2006 2748 3114% 3525%  3608* 3788 #3850 3853" 3906 3984 3987« 
SRD10 007154 3864 38744 
SREAD 007132 3812 3848 #38718 

007032 3808 #38464 
SSENSE= 199 2747% = 3037* 3524 35578 3690"  3698% 3704" 3744" 3836" 3849 3878  3966* 

3983* 4021* 4069* 4118 

SSRMI 007032 3816 3847" 
SSTACK= 012650 2147 2677 48814 
SSTAT = 000003 19994 3528%  3649% 4045* 4052" 4079» 4093 4095* 4109 4181* 
STAMOD= 000100 20964 
START 001000 2125 21324 4740 
STKSTB= 2 20604 
STMSG 013146 2197 49384 
STOP 76 2729 «= 27894 
STOPDX 003352 2683 791 28174 
STOUT 10062 4046 4053 40904 
STPDX 006544 3616 3648 3663 3739 37526 
STPMES 014110 2820 49384 
STSPW 013126 2486* 3035 3060 4030 4104 4205 49244 
SUDEV 010242 3081 3481 3637s -33782.—'i3903)=—S 41514 = 4179 
SUDEX 010264 4155 41584 
SUD10 010252 41544 4157 
SWRITE 006742 380 3811 38294 
SYSINT 001006 213 21478 3 
SYSRST= 010000 20494 3459 
TBUF = 012652 217 2650 2690 3005 4452 4459 4472 4476 48908 
TBUFE 012752 4478 48928 
TCHEND 005636 3506 35084 
TCHIS 005624 3503 35054 3650 
TCMACT 013065 2644* 2648  2678% 2684 2995 3003 4449 4454 4460* 49004 
TCMDAS 013 2645* 2646 2679% 2892 2912 2969 4451* 49014 
TCMDT& 003056 2693 27128 
TCUEND 005650 3509 35114 
TESEND 005600 3497 34994 
TESTMS 013626 2368 49384 
TINDSC 005554 3491 34934 
TKB 012470 4430 48374 
TKIN 010756 2156 46 4428 # 
TKS 0124 2184% 48364 
T™NXM 005566 3494 496M 
TOOC §=._—«aE017143 2352 «49384 
TOUTRT 011722 4725 47334 
TPARER 005612 3500 35024 
TPB 012474 4519% 48394 
TPS 012472 2185* 48384 
TPTR 012754 2178* 4432 6482* 4893¢ 
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TSELRS 005542 904 


TSTTYP A ta s6ee 376* 
TTADDR 0130746 505* 75 
TTPTR 013072 506* 757 
TT = 001000 one 507 
TTYSTP 013105 4438* 4442 
= 000002 1014 2498 
UCHKS = 002000 0514 
UEXP = 000001 $iee 
UNADDR 012530 4 22218 
UNMSG 013270 § 10 49384 
UNTRP 011754 230 47468 
VBUFA 013114 2434 2461* 
VCMDTB posees 2533 26004 
VECTAD bigs 2231* 2243 
VECTMS 013324 2233 49384 
VEND 013140 171 49298 
VSTRT 012650 170 $17) 
wk 013070 147* 148 
wK1 013071 3151 3153* 
XAD 013124 2584" 2764 
. = 017202 21164 21248 


- ABS. 017202 000 


ERRORS DETECTED: 0 
Spel SF CZDXIC/SOL/CRF /NL : TOC=CZDXIC.P11 
RUN-TIME CONDS 


RUN-TIME RATIO: 29/13=2.1 
CORE USED: 7K (13 PAGES) 


344 
os 
303 
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ER 
CROSS REFERENCE TABLE -- USER 


3634 3847 

3419 3445« 
2906 §=«_ 2908 

2609 3061 

4864a 

49034 

3978 «©6488 0# 


3979 4062 4280s 48714 

4905# 

3304 3431 3441 

3649 4093 4095 

4881 4890 48918 48954 4896 


49384 


SEQ 118 


